diff options
| author | Keith Packard <keithp@keithp.com> | 2017-11-18 22:00:44 -0800 |
|---|---|---|
| committer | Keith Packard <keithp@keithp.com> | 2017-11-18 22:00:44 -0800 |
| commit | 12a1f6ad48f2b924f71239effeb90afca75a090f (patch) | |
| tree | da4d42d66f10698b5f38c0bc9b60cf1f01fa7b02 /src/lisp/ao_lisp_builtin.c | |
| parent | 5f8f0ed5cd5d4b4f793c602ed09f9b4bdb98f7e8 (diff) | |
altos/lisp: Fix some scheme compat issues
flush -> flush-output
nth -> list-ref (oh, and add list-tail)
add let* (same as let for now)
write control chars in octal
make hanoi example work
Signed-off-by: Keith Packard <keithp@keithp.com>
Diffstat (limited to 'src/lisp/ao_lisp_builtin.c')
| -rw-r--r-- | src/lisp/ao_lisp_builtin.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/lisp/ao_lisp_builtin.c b/src/lisp/ao_lisp_builtin.c index ccd13d07..e5370f90 100644 --- a/src/lisp/ao_lisp_builtin.c +++ b/src/lisp/ao_lisp_builtin.c @@ -533,9 +533,9 @@ ao_lisp_do_string_to_list(struct ao_lisp_cons *cons) } ao_poly -ao_lisp_do_flush(struct ao_lisp_cons *cons) +ao_lisp_do_flush_output(struct ao_lisp_cons *cons) { - if (!ao_lisp_check_argc(_ao_lisp_atom_flush, cons, 0, 0)) + if (!ao_lisp_check_argc(_ao_lisp_atom_flush2doutput, cons, 0, 0)) return AO_LISP_NIL; ao_lisp_os_flush(); return _ao_lisp_bool_true; |