projects
/
fw
/
altos
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
altos/scheme: ao_scheme__cons -> ao_scheme_cons
[fw/altos]
/
src
/
scheme
/
ao_scheme_read.c
diff --git
a/src/scheme/ao_scheme_read.c
b/src/scheme/ao_scheme_read.c
index 721211bc7a9b3ad1e57e23d6803bf516f215de8b..e93466fc688eff4142989f308d01b592e8985eaf 100644
(file)
--- a/
src/scheme/ao_scheme_read.c
+++ b/
src/scheme/ao_scheme_read.c
@@
-510,7
+510,7
@@
push_read_stack(int read_state)
RDBG_IN();
if (ao_scheme_read_list) {
ao_scheme_read_stack = ao_scheme_cons_cons(ao_scheme_cons_poly(ao_scheme_read_cons),
RDBG_IN();
if (ao_scheme_read_list) {
ao_scheme_read_stack = ao_scheme_cons_cons(ao_scheme_cons_poly(ao_scheme_read_cons),
- ao_scheme_
_
cons(ao_scheme_int_poly(read_state),
+ ao_scheme_cons(ao_scheme_int_poly(read_state),
ao_scheme_cons_poly(ao_scheme_read_stack)));
if (!ao_scheme_read_stack)
return 0;
ao_scheme_cons_poly(ao_scheme_read_stack)));
if (!ao_scheme_read_stack)
return 0;