initial 542 gc/cord/de.c CORD initial; initial 545 gc/cord/de.c initial = "\n"; initial 547 gc/cord/de.c initial = CORD_from_file(f); initial 548 gc/cord/de.c if (initial == CORD_EMPTY initial 549 gc/cord/de.c || CORD_fetch(initial, CORD_len(initial)-1) != '\n') { initial 550 gc/cord/de.c initial = CORD_cat(initial, "\n"); initial 554 gc/cord/de.c add_hist(initial); initial 307 gc/ptr_chck.c GC_PTR initial = *p; initial 308 gc/ptr_chck.c GC_PTR result = GC_same_obj((GC_PTR)((word)initial + how_much), initial); initial 320 gc/ptr_chck.c GC_PTR initial = *p; initial 321 gc/ptr_chck.c GC_PTR result = GC_same_obj((GC_PTR)((word)initial + how_much), initial); initial 327 gc/ptr_chck.c return(initial); initial 58 src/read.c static ScmObj read_word(ScmPort *port, ScmChar initial, ScmReadContext *ctx, initial 60 src/read.c static ScmObj read_symbol(ScmPort *port, ScmChar initial, ScmReadContext *ctx); initial 61 src/read.c static ScmObj read_number(ScmPort *port, ScmChar initial, ScmReadContext *ctx); initial 62 src/read.c static ScmObj read_symbol_or_number(ScmPort *port, ScmChar initial, ScmReadContext *ctx); initial 853 src/read.c static ScmObj read_word(ScmPort *port, ScmChar initial, ScmReadContext *ctx, initial 860 src/read.c if (initial != SCM_CHAR_INVALID) { initial 861 src/read.c if (case_fold && char_word_case_fold(initial)) initial = tolower(initial); initial 862 src/read.c SCM_DSTRING_PUTC(&ds, initial); initial 876 src/read.c static ScmObj read_symbol(ScmPort *port, ScmChar initial, ScmReadContext *ctx) initial 878 src/read.c ScmString *s = SCM_STRING(read_word(port, initial, ctx, FALSE)); initial 882 src/read.c static ScmObj read_number(ScmPort *port, ScmChar initial, ScmReadContext *ctx) initial 884 src/read.c ScmString *s = SCM_STRING(read_word(port, initial, ctx, FALSE)); initial 891 src/read.c static ScmObj read_symbol_or_number(ScmPort *port, ScmChar initial, ScmReadContext *ctx) initial 893 src/read.c ScmString *s = SCM_STRING(read_word(port, initial, ctx, FALSE));