projects
/
fw
/
altos
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
altos/lisp: Switch to scheme formal syntax for varargs
[fw/altos]
/
src
/
lisp
/
ao_lisp_save.c
diff --git
a/src/lisp/ao_lisp_save.c
b/src/lisp/ao_lisp_save.c
index 4f850fb992ce5db1fd1aba720aef4109d1c819f1..c990e9c66c2271a90ced480c8b543a9bfa904b26 100644
(file)
--- a/
src/lisp/ao_lisp_save.c
+++ b/
src/lisp/ao_lisp_save.c
@@
-15,7
+15,7
@@
#include <ao_lisp.h>
ao_poly
#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;
{
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())
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
#endif
- return
AO_LISP_NIL
;
+ return
_ao_lisp_bool_false
;
}
ao_poly
}
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;
{
if (!ao_lisp_check_argc(_ao_lisp_atom_save, cons, 0, 0))
return AO_LISP_NIL;
@@
-68,9
+68,10
@@
ao_lisp_restore(struct ao_lisp_cons *cons)
/* Re-create the evaluator stack */
if (!ao_lisp_eval_restart())
/* 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
}
#endif
- return
AO_LISP_NIL
;
+ return
_ao_lisp_bool_false
;
}
}