refnum            249 src/read.c     static ScmObj ref_register(ScmReadContext *ctx, ScmObj obj, int refnum)
refnum            252 src/read.c         Scm_HashTablePut(ctx->table, SCM_MAKE_INT(refnum), obj);
refnum            985 src/read.c         int refnum = Scm_DigitToInt(ch, 10);
refnum            993 src/read.c                 refnum = refnum*10+Scm_DigitToInt(ch, 10);
refnum            994 src/read.c                 if (refnum < 0) Scm_ReadError(port, "reference number overflow");
refnum            998 src/read.c                 Scm_ReadError(port, "invalid reference form (must be either #digits# or #digits=) : #%d%A", refnum, SCM_MAKE_CHAR(ch));
refnum           1005 src/read.c                 || (e = Scm_HashTableGet(ctx->table, Scm_MakeInteger(refnum))) == NULL) {
refnum           1006 src/read.c                 Scm_ReadError(port, "invalid reference number in #%d#", refnum);
refnum           1023 src/read.c             if (Scm_HashTableGet(ctx->table, Scm_MakeInteger(refnum)) != NULL) {
refnum           1024 src/read.c                 Scm_ReadError(port, "duplicate back-reference number in #%d=", refnum);
refnum           1026 src/read.c             ref_register(ctx, ref, refnum);