diff options
| author | Mistivia <i@mistivia.com> | 2025-06-21 00:35:00 +0800 |
|---|---|---|
| committer | Mistivia <i@mistivia.com> | 2025-06-21 00:35:00 +0800 |
| commit | 0afe446fa6e893448da949b1b6882c87b3b2701c (patch) | |
| tree | d1c73fb9d7e086112d181ab63908ec88146365ed /src/interp.h | |
| parent | bf0eb7e84c1f10e30fe82ec5f9d4c544a5b82fd2 (diff) | |
length macro; utf-8 symbol
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 0564ee0..2daa29d 100644 --- a/src/interp.h +++ b/src/interp.h @@ -44,6 +44,7 @@ void Interp_add_userfunc(Interp *self, const char *name, LispUserFunc fn); #define REF(_x) (Interp_ref(interp, (_x))) #define CONS(_x, _y) (lisp_cons(interp, (_x), (_y))) #define NILP(_x) (lisp_nilp(interp, (_x))) +#define LENGTH(_x) (lisp_length(interp, (_x))) #define EVAL(_x) (lisp_eval(interp, (_x))) #define TRUEP(_x) (lisp_truep(interp, (_x))) #define ERRORP(_x) (REF((_x))->type == kErrSExp) |