| … | |
… | |
| 193 | #endif |
193 | #endif |
| 194 | |
194 | |
| 195 | enum scheme_types |
195 | enum scheme_types |
| 196 | { |
196 | { |
| 197 | T_INTEGER, |
197 | T_INTEGER, |
|
|
198 | T_CHARACTER, |
| 198 | T_REAL, |
199 | T_REAL, |
| 199 | T_STRING, |
200 | T_STRING, |
| 200 | T_SYMBOL, |
201 | T_SYMBOL, |
| 201 | T_PROC, |
202 | T_PROC, |
| 202 | T_PAIR, /* also used for free cells */ |
203 | T_PAIR, /* also used for free cells */ |
| 203 | T_CLOSURE, |
204 | T_CLOSURE, |
|
|
205 | T_MACRO, |
| 204 | T_CONTINUATION, |
206 | T_CONTINUATION, |
| 205 | T_FOREIGN, |
207 | T_FOREIGN, |
| 206 | T_CHARACTER, |
|
|
| 207 | T_PORT, |
208 | T_PORT, |
| 208 | T_VECTOR, |
209 | T_VECTOR, |
| 209 | T_MACRO, |
|
|
| 210 | T_PROMISE, |
210 | T_PROMISE, |
| 211 | T_ENVIRONMENT, |
211 | T_ENVIRONMENT, |
| 212 | /* one more... */ |
212 | /* one more... */ |
| 213 | T_NUM_SYSTEM_TYPES |
213 | T_NUM_SYSTEM_TYPES |
| 214 | }; |
214 | }; |
| … | |
… | |
| 4599 | *CELL (SCHEME_V->code) = *CELL (SCHEME_V->value); |
4599 | *CELL (SCHEME_V->code) = *CELL (SCHEME_V->value); |
| 4600 | s_return (SCHEME_V->value); |
4600 | s_return (SCHEME_V->value); |
| 4601 | |
4601 | |
| 4602 | #if USE_PORTS |
4602 | #if USE_PORTS |
| 4603 | |
4603 | |
|
|
4604 | case OP_EOF_OBJECT: /* eof-object */ |
|
|
4605 | s_return (S_EOF); |
|
|
4606 | |
| 4604 | case OP_WRITE: /* write */ |
4607 | case OP_WRITE: /* write */ |
| 4605 | case OP_DISPLAY: /* display */ |
4608 | case OP_DISPLAY: /* display */ |
| 4606 | case OP_WRITE_CHAR: /* write-char */ |
4609 | case OP_WRITE_CHAR: /* write-char */ |
| 4607 | if (is_pair (cdr (SCHEME_V->args))) |
4610 | if (is_pair (cdr (SCHEME_V->args))) |
| 4608 | { |
4611 | { |
