Merge branch 'master' of ssh://git.gag.com/scm/git/fw/altos

[fw/altos] / src / scheme / test / ao_scheme_test.c

diff --git a/src/scheme/test/ao_scheme_test.c b/src/scheme/test/ao_scheme_test.c
index 15c71203e802028b8974f4813a56bcaec22a70d3..686e7169f47f33a4bbfcf5c29dbff17fba4ffcd5 100644 (file)
--- a/src/scheme/test/ao_scheme_test.c
+++ b/src/scheme/test/ao_scheme_test.c
@@ -78,7 +78,7 @@ ao_scheme_getc(void)
                return getc(ao_scheme_file);
 
        if (newline) {
-               if (ao_scheme_read_stack)
+               if (ao_scheme_read_list)
                        printf("+ ");
                else
                        printf("> ");