altos/lisp: Fix some scheme compat issues

flush -> flush-output
nth -> list-ref (oh, and add list-tail)
add let* (same as let for now)
write control chars in octal
make hanoi example work

Signed-off-by: Keith Packard <keithp@keithp.com>

1 files changed, 4 insertions, 1 deletions

diff --git a/src/lisp/ao_lisp_string.c b/src/lisp/ao_lisp_string.c
index fff218df..1daa50ea 100644
--- 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;
 		}
 	}