| … | |
… | |
| 3912 | SCHEME_V->code = car (args); |
3912 | SCHEME_V->code = car (args); |
| 3913 | SCHEME_V->args = cons (mk_continuation (SCHEME_A_ ss_get_cont (SCHEME_A)), NIL); |
3913 | SCHEME_V->args = cons (mk_continuation (SCHEME_A_ ss_get_cont (SCHEME_A)), NIL); |
| 3914 | s_goto (OP_APPLY); |
3914 | s_goto (OP_APPLY); |
| 3915 | } |
3915 | } |
| 3916 | |
3916 | |
| 3917 | abort (); |
3917 | if (USE_ERROR_CHECKING) abort (); |
| 3918 | } |
3918 | } |
| 3919 | |
3919 | |
| 3920 | static int |
3920 | static int |
| 3921 | opexe_1 (SCHEME_P_ enum scheme_opcodes op) |
3921 | opexe_1 (SCHEME_P_ enum scheme_opcodes op) |
| 3922 | { |
3922 | { |
| … | |
… | |
| 4417 | set_vector_elem (x, index, caddr (args)); |
4417 | set_vector_elem (x, index, caddr (args)); |
| 4418 | s_return (x); |
4418 | s_return (x); |
| 4419 | } |
4419 | } |
| 4420 | } |
4420 | } |
| 4421 | |
4421 | |
| 4422 | abort (); |
4422 | if (USE_ERROR_CHECKING) abort (); |
| 4423 | } |
4423 | } |
| 4424 | |
4424 | |
| 4425 | INTERFACE int |
4425 | INTERFACE int |
| 4426 | is_list (SCHEME_P_ pointer a) |
4426 | is_list (SCHEME_P_ pointer a) |
| 4427 | { |
4427 | { |
| … | |
… | |
| 4868 | case OP_CURR_ENV: /* current-environment */ |
4868 | case OP_CURR_ENV: /* current-environment */ |
| 4869 | s_return (SCHEME_V->envir); |
4869 | s_return (SCHEME_V->envir); |
| 4870 | |
4870 | |
| 4871 | } |
4871 | } |
| 4872 | |
4872 | |
| 4873 | abort (); |
4873 | if (USE_ERROR_CHECKING) abort (); |
| 4874 | } |
4874 | } |
| 4875 | |
4875 | |
| 4876 | static int |
4876 | static int |
| 4877 | opexe_5 (SCHEME_P_ enum scheme_opcodes op) |
4877 | opexe_5 (SCHEME_P_ enum scheme_opcodes op) |
| 4878 | { |
4878 | { |
| … | |
… | |
| 5211 | s_goto (OP_P0LIST); |
5211 | s_goto (OP_P0LIST); |
| 5212 | } |
5212 | } |
| 5213 | } |
5213 | } |
| 5214 | } |
5214 | } |
| 5215 | |
5215 | |
| 5216 | abort (); |
5216 | if (USE_ERROR_CHECKING) abort (); |
| 5217 | } |
5217 | } |
| 5218 | |
5218 | |
| 5219 | static int |
5219 | static int |
| 5220 | opexe_6 (SCHEME_P_ enum scheme_opcodes op) |
5220 | opexe_6 (SCHEME_P_ enum scheme_opcodes op) |
| 5221 | { |
5221 | { |
| … | |
… | |
| 5274 | |
5274 | |
| 5275 | case OP_MACROP: /* macro? */ |
5275 | case OP_MACROP: /* macro? */ |
| 5276 | s_retbool (is_macro (a)); |
5276 | s_retbool (is_macro (a)); |
| 5277 | } |
5277 | } |
| 5278 | |
5278 | |
| 5279 | abort (); |
5279 | if (USE_ERROR_CHECKING) abort (); |
| 5280 | } |
5280 | } |
| 5281 | |
5281 | |
| 5282 | /* dispatch functions (opexe_x) return new opcode, or 0 for same opcode, or -1 to stop */ |
5282 | /* dispatch functions (opexe_x) return new opcode, or 0 for same opcode, or -1 to stop */ |
| 5283 | typedef int (*dispatch_func)(SCHEME_P_ enum scheme_opcodes); |
5283 | typedef int (*dispatch_func)(SCHEME_P_ enum scheme_opcodes); |
| 5284 | |
5284 | |
