diff options
Diffstat (limited to 'src/interp.h')
| -rw-r--r-- | src/interp.h | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/src/interp.h b/src/interp.h index 0a489cb..1d3a2b4 100644 --- a/src/interp.h +++ b/src/interp.h @@ -56,6 +56,7 @@ SExpRef Interp_load_file(Interp *interp, const char *filename); #define CTL_FL(_x) \ (REF((_x))->type == kErrSignal \ || REF((_x))->type == kReturnSignal \ + || REF((_x))->type == kExceptionSignal \ || REF((_x))->type == kBreakSignal \ || REF((_x))->type == kContinueSignal) #define VALTYPE(_x) (REF((_x))->type) @@ -118,6 +119,7 @@ SExpRef new_primitive(Interp *interp, LispPrimitive val); SExpRef new_lambda(Interp *interp, SExpRef param, SExpRef body, SExpRef env); SExpRef new_macro(Interp *interp, SExpRef param, SExpRef body); SExpRef new_tailcall(Interp *interp, SExpRef fn, SExpRef args); +SExpRef new_exception(Interp *interp, SExpRef e); SExpRef new_list1(Interp *ctx, SExpRef e1); SExpRef new_list2(Interp *ctx, SExpRef e1, SExpRef e2); SExpRef new_list3(Interp *ctx, SExpRef e1, SExpRef e2, SExpRef e3); |