--- cvsroot/microscheme/scheme.c 2015/11/25 10:50:24 1.5 +++ cvsroot/microscheme/scheme.c 2015/11/25 10:57:17 1.6 @@ -5847,15 +5847,15 @@ assign_proc (SCHEME_A_ i, dispatch_table[i].name); /* initialization of global pointers to special symbols */ - SCHEME_V->LAMBDA = mk_symbol (SCHEME_A_ "lambda"); - SCHEME_V->QUOTE = mk_symbol (SCHEME_A_ "quote"); - SCHEME_V->QQUOTE = mk_symbol (SCHEME_A_ "quasiquote"); - SCHEME_V->UNQUOTE = mk_symbol (SCHEME_A_ "unquote"); - SCHEME_V->UNQUOTESP = mk_symbol (SCHEME_A_ "unquote-splicing"); - SCHEME_V->FEED_TO = mk_symbol (SCHEME_A_ "=>"); - SCHEME_V->COLON_HOOK = mk_symbol (SCHEME_A_ "*colon-hook*"); - SCHEME_V->ERROR_HOOK = mk_symbol (SCHEME_A_ "*error-hook*"); - SCHEME_V->SHARP_HOOK = mk_symbol (SCHEME_A_ "*sharp-hook*"); + SCHEME_V->LAMBDA = mk_symbol (SCHEME_A_ "lambda"); + SCHEME_V->QUOTE = mk_symbol (SCHEME_A_ "quote"); + SCHEME_V->QQUOTE = mk_symbol (SCHEME_A_ "quasiquote"); + SCHEME_V->UNQUOTE = mk_symbol (SCHEME_A_ "unquote"); + SCHEME_V->UNQUOTESP = mk_symbol (SCHEME_A_ "unquote-splicing"); + SCHEME_V->FEED_TO = mk_symbol (SCHEME_A_ "=>"); + SCHEME_V->COLON_HOOK = mk_symbol (SCHEME_A_ "*colon-hook*"); + SCHEME_V->ERROR_HOOK = mk_symbol (SCHEME_A_ "*error-hook*"); + SCHEME_V->SHARP_HOOK = mk_symbol (SCHEME_A_ "*sharp-hook*"); SCHEME_V->COMPILE_HOOK = mk_symbol (SCHEME_A_ "*compile-hook*"); return !SCHEME_V->no_memory;