diff options
| author | Keith Packard <keithp@keithp.com> | 2017-11-17 22:14:19 -0800 |
|---|---|---|
| committer | Keith Packard <keithp@keithp.com> | 2017-11-17 22:14:19 -0800 |
| commit | e1acf5eb12aceda7aa838df031c1da1129d0fa5d (patch) | |
| tree | e0fe6c04b9f3f654e246616a78d1278e5d6c3cf5 /src/lisp/ao_lisp_read.c | |
| parent | a4e18a13029cc7b16b2ed9da84d6e606bc725ac3 (diff) | |
altos/lisp: Add apply
And all of the library routines that use it, map, string-map and friends.
Signed-off-by: Keith Packard <keithp@keithp.com>
Diffstat (limited to 'src/lisp/ao_lisp_read.c')
| -rw-r--r-- | src/lisp/ao_lisp_read.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/lisp/ao_lisp_read.c b/src/lisp/ao_lisp_read.c index bcd23ce1..8c06e198 100644 --- 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: |