diff options
| author | Mistivia <i@mistivia.com> | 2025-06-24 22:32:57 +0800 |
|---|---|---|
| committer | Mistivia <i@mistivia.com> | 2025-06-24 22:34:19 +0800 |
| commit | 44642d96eaef834b4bb846d27347ee681f9f5f7b (patch) | |
| tree | 6e288498788115415650546f11a54a2a17766b15 /src/interp.c | |
| parent | 7dd5aa6065c00ed2d85b191e7e3cd4b12467408d (diff) | |
add more list funcs
Diffstat (limited to 'src/interp.c')
| -rw-r--r-- | src/interp.c | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/src/interp.c b/src/interp.c index 44800c8..6f2bb8a 100644 --- a/src/interp.c +++ b/src/interp.c @@ -157,6 +157,17 @@ void Interp_init(Interp *self) { Interp_add_userfunc(self, "length", builtin_length); Interp_add_userfunc(self, "nth", builtin_nth); Interp_add_userfunc(self, "nthcdr", builtin_nthcdr); + Interp_add_userfunc(self, "list?", builtin_listp); + Interp_add_userfunc(self, "cons?", builtin_consp); + Interp_add_userfunc(self, "atom?", builtin_atomp); + Interp_add_userfunc(self, "null?", builtin_nullp); + Interp_add_userfunc(self, "member?", builtin_memberp); + Interp_add_userfunc(self, "number?", builtin_numberp); + Interp_add_userfunc(self, "integer?", builtin_integerp); + Interp_add_userfunc(self, "float?", builtin_floatp); + Interp_add_userfunc(self, "nreverse", builtin_nreverse); + Interp_add_userfunc(self, "reverse", builtin_reverse); + Interp_add_userfunc(self, "last", builtin_last); Interp_add_userfunc(self, "_gcstat", builtin_gcstat); Interp_add_userfunc(self, "_alwaysgc", builtin_alwaysgc); |
