altos/lisp: Add apply

[fw/altos] / src / lisp / ao_lisp_read.c

diff --git a/src/lisp/ao_lisp_read.c b/src/lisp/ao_lisp_read.c
index bcd23ce14b726bb4cf8bb06ee293aa718f020249..8c06e19898f93c2300e60711396063f1666eb50a 100644 (file)
--- a/src/lisp/ao_lisp_read.c
+++ b/src/lisp/ao_lisp_read.c
@@ -516,7 +516,7 @@ ao_lisp_read(void)
                        if (!push_read_stack(cons, read_state))
                                return AO_LISP_NIL;
                        cons++;
-                       read_state |= READ_IN_QUOTE;
+                       read_state = READ_IN_QUOTE;
                        v = _ao_lisp_atom_quote;
                        break;
                case CLOSE: