altos/lisp: Fix some scheme compat issues

[fw/altos] / src / lisp / ao_lisp_string.c

diff --git a/src/lisp/ao_lisp_string.c b/src/lisp/ao_lisp_string.c
index fff218dfafaaa669fd425f1d8800967a48786323..1daa50ea968f70ec211e9d487367ad7a58524aa3 100644 (file)
--- a/src/lisp/ao_lisp_string.c
+++ b/src/lisp/ao_lisp_string.c
@@ -140,7 +140,10 @@ ao_lisp_string_write(ao_poly p)
                        printf ("\\t");
                        break;
                default:
-                       putchar(c);
+                       if (c < ' ')
+                               printf("\\%03o", c);
+                       else
+                               putchar(c);
                        break;
                }
        }