diff options
| author | Mistivia <i@mistivia.com> | 2025-07-01 12:10:11 +0800 |
|---|---|---|
| committer | Mistivia <i@mistivia.com> | 2025-07-01 12:10:11 +0800 |
| commit | 7dfaa40719c5a264b17aca96cd85e31bf7b8b557 (patch) | |
| tree | 17c2cb2919393fc89620efb38495121950cf77cf /src/interp.h | |
| parent | 6d89e9697b1740366f23387964122d264475b49c (diff) | |
extend defun
Diffstat (limited to 'src/interp.h')
| -rw-r--r-- | src/interp.h | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/src/interp.h b/src/interp.h index 1d3a2b4..4e43cd8 100644 --- a/src/interp.h +++ b/src/interp.h @@ -60,6 +60,7 @@ SExpRef Interp_load_file(Interp *interp, const char *filename); || REF((_x))->type == kBreakSignal \ || REF((_x))->type == kContinueSignal) #define VALTYPE(_x) (REF((_x))->type) +#define CALLABLE(_x) (VALTYPE(_x) == kFuncSExp || VALTYPE(_x) == kUserFuncSExp) #define NIL (interp->nil) #define CAR(_x) (lisp_car(interp, (_x))) #define CDR(_x) (lisp_cdr(interp, (_x))) |