| … | |
… | |
| 79 | |
79 | |
| 80 | #define BACKQUOTE '`' |
80 | #define BACKQUOTE '`' |
| 81 | #define WHITESPACE " \t\r\n\v\f" |
81 | #define WHITESPACE " \t\r\n\v\f" |
| 82 | #define DELIMITERS "()\";" WHITESPACE |
82 | #define DELIMITERS "()\";" WHITESPACE |
| 83 | |
83 | |
| 84 | #define NIL (&SCHEME_V->xNIL) //TODO: make this 0? |
84 | #define NIL (&SCHEME_V->xNIL) |
| 85 | #define S_T (&SCHEME_V->xT) //TODO: magic ptr value? |
85 | #define S_T (&SCHEME_V->xT) |
| 86 | #define S_F (&SCHEME_V->xF) //TODO: magic ptr value? |
86 | #define S_F (&SCHEME_V->xF) |
| 87 | #define S_SINK (&SCHEME_V->xsink) |
87 | #define S_SINK (&SCHEME_V->xsink) |
| 88 | #define S_EOF (&SCHEME_V->xEOF_OBJ) |
88 | #define S_EOF (&SCHEME_V->xEOF_OBJ) |
| 89 | |
89 | |
| 90 | #if !USE_MULTIPLICITY |
90 | #if !USE_MULTIPLICITY |
| 91 | static scheme sc; |
91 | static scheme sc; |
