diff options
| author | Keith Packard <keithp@keithp.com> | 2017-11-16 17:49:47 -0800 |
|---|---|---|
| committer | Keith Packard <keithp@keithp.com> | 2017-11-16 18:40:31 -0800 |
| commit | b3b4731fcb89cb404433f37a7704a503567c43bd (patch) | |
| tree | 74f0a214725905c7556a735127f01a4b4b0926be /src/lisp/ao_lisp_save.c | |
| parent | bd881a5b85d7cd4fb82127f92f32e089499b50cb (diff) | |
altos/lisp: Add scheme-style bools (#t and #f)
Cond and while compare against #f, just like scheme says to.
Signed-off-by: Keith Packard <keithp@keithp.com>
Diffstat (limited to 'src/lisp/ao_lisp_save.c')
| -rw-r--r-- | src/lisp/ao_lisp_save.c | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/src/lisp/ao_lisp_save.c b/src/lisp/ao_lisp_save.c index 4f850fb9..cbc8e925 100644 --- a/src/lisp/ao_lisp_save.c +++ b/src/lisp/ao_lisp_save.c @@ -15,7 +15,7 @@ #include <ao_lisp.h> ao_poly -ao_lisp_save(struct ao_lisp_cons *cons) +ao_lisp_do_save(struct ao_lisp_cons *cons) { if (!ao_lisp_check_argc(_ao_lisp_atom_save, cons, 0, 0)) return AO_LISP_NIL; @@ -30,13 +30,13 @@ ao_lisp_save(struct ao_lisp_cons *cons) os->const_checksum_inv = (uint16_t) ~ao_lisp_const_checksum; if (ao_lisp_os_save()) - return _ao_lisp_atom_t; + return _ao_lisp_bool_true; #endif - return AO_LISP_NIL; + return _ao_lisp_bool_false; } ao_poly -ao_lisp_restore(struct ao_lisp_cons *cons) +ao_lisp_do_restore(struct ao_lisp_cons *cons) { if (!ao_lisp_check_argc(_ao_lisp_atom_save, cons, 0, 0)) return AO_LISP_NIL; @@ -68,9 +68,9 @@ ao_lisp_restore(struct ao_lisp_cons *cons) /* Re-create the evaluator stack */ if (!ao_lisp_eval_restart()) - return AO_LISP_NIL; - return _ao_lisp_atom_t; + return _ao_lisp_bool_false; + return _ao_lisp_bool_true; } #endif - return AO_LISP_NIL; + return _ao_lisp_bool_false; } |