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);