X-Git-Url: https://git.gag.com/?a=blobdiff_plain;ds=sidebyside;f=src%2Fscheme%2Fao_scheme_read.c;h=e93466fc688eff4142989f308d01b592e8985eaf;hb=fa6f4b331db9d37da6767005fd375b696485b46b;hp=721211bc7a9b3ad1e57e23d6803bf516f215de8b;hpb=00390fb09f47654905824af671b966ffca0a38b3;p=fw%2Faltos

diff --git a/src/scheme/ao_scheme_read.c b/src/scheme/ao_scheme_read.c
index 721211bc..e93466fc 100644
--- 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),
-						       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;