altos/lisp: add set/setq and ' in reader

[fw/altos] / src / lisp / ao_lisp.h

diff --git a/src/lisp/ao_lisp.h b/src/lisp/ao_lisp.h
index 4fac861b555efe0060cd2297704e6289d583e780..d41086621b24092ae562c8b861a7241cfe12e366 100644 (file)
--- a/src/lisp/ao_lisp.h
+++ b/src/lisp/ao_lisp.h
@@ -27,6 +27,7 @@
 #ifdef AO_LISP_MAKE_CONST
 #define AO_LISP_POOL_CONST     16384
 extern uint8_t ao_lisp_const[AO_LISP_POOL_CONST];
+#define _ao_lisp_atom_quote ao_lisp_atom_poly(ao_lisp_atom_intern("quote"))
 #else
 #include "ao_lisp_const.h"
 #endif
@@ -62,6 +63,11 @@ extern uint8_t               ao_lisp_exception;
 
 typedef uint16_t       ao_poly;
 
+static inline int
+ao_lisp_is_const(ao_poly poly) {
+       return poly & AO_LISP_CONST;
+}
+
 static inline void *
 ao_lisp_ref(ao_poly poly) {
        if (poly == AO_LISP_NIL)
@@ -128,6 +134,8 @@ enum ao_lisp_builtin_id {
        builtin_cdr,
        builtin_cons,
        builtin_quote,
+       builtin_set,
+       builtin_setq,
        builtin_print,
        builtin_plus,
        builtin_minus,