| … | |
… | |
| 5845 | for (i = 0; i < n; i++) |
5845 | for (i = 0; i < n; i++) |
| 5846 | if (dispatch_table[i].name != 0) |
5846 | if (dispatch_table[i].name != 0) |
| 5847 | assign_proc (SCHEME_A_ i, dispatch_table[i].name); |
5847 | assign_proc (SCHEME_A_ i, dispatch_table[i].name); |
| 5848 | |
5848 | |
| 5849 | /* initialization of global pointers to special symbols */ |
5849 | /* initialization of global pointers to special symbols */ |
| 5850 | SCHEME_V->LAMBDA = mk_symbol (SCHEME_A_ "lambda"); |
5850 | SCHEME_V->LAMBDA = mk_symbol (SCHEME_A_ "lambda"); |
| 5851 | SCHEME_V->QUOTE = mk_symbol (SCHEME_A_ "quote"); |
5851 | SCHEME_V->QUOTE = mk_symbol (SCHEME_A_ "quote"); |
| 5852 | SCHEME_V->QQUOTE = mk_symbol (SCHEME_A_ "quasiquote"); |
5852 | SCHEME_V->QQUOTE = mk_symbol (SCHEME_A_ "quasiquote"); |
| 5853 | SCHEME_V->UNQUOTE = mk_symbol (SCHEME_A_ "unquote"); |
5853 | SCHEME_V->UNQUOTE = mk_symbol (SCHEME_A_ "unquote"); |
| 5854 | SCHEME_V->UNQUOTESP = mk_symbol (SCHEME_A_ "unquote-splicing"); |
5854 | SCHEME_V->UNQUOTESP = mk_symbol (SCHEME_A_ "unquote-splicing"); |
| 5855 | SCHEME_V->FEED_TO = mk_symbol (SCHEME_A_ "=>"); |
5855 | SCHEME_V->FEED_TO = mk_symbol (SCHEME_A_ "=>"); |
| 5856 | SCHEME_V->COLON_HOOK = mk_symbol (SCHEME_A_ "*colon-hook*"); |
5856 | SCHEME_V->COLON_HOOK = mk_symbol (SCHEME_A_ "*colon-hook*"); |
| 5857 | SCHEME_V->ERROR_HOOK = mk_symbol (SCHEME_A_ "*error-hook*"); |
5857 | SCHEME_V->ERROR_HOOK = mk_symbol (SCHEME_A_ "*error-hook*"); |
| 5858 | SCHEME_V->SHARP_HOOK = mk_symbol (SCHEME_A_ "*sharp-hook*"); |
5858 | SCHEME_V->SHARP_HOOK = mk_symbol (SCHEME_A_ "*sharp-hook*"); |
| 5859 | SCHEME_V->COMPILE_HOOK = mk_symbol (SCHEME_A_ "*compile-hook*"); |
5859 | SCHEME_V->COMPILE_HOOK = mk_symbol (SCHEME_A_ "*compile-hook*"); |
| 5860 | |
5860 | |
| 5861 | return !SCHEME_V->no_memory; |
5861 | return !SCHEME_V->no_memory; |
| 5862 | } |
5862 | } |
| 5863 | |
5863 | |
