From cf5729a0bae51172f12fc9ec4339d4e975a45fcc Mon Sep 17 00:00:00 2001
From: Keith Packard <keithp@keithp.com>
Date: Fri, 17 Nov 2017 23:23:50 -0800
Subject: altos/lisp: Finish first pass through r7rs

* print -> write, patom -> display
* Add read-char, write-char
* Add exit, current-jiffy, current-second, jiffies-per-second
* Add for-each and string-for-each
* Avoid duplicate builtins with different atoms

Signed-off-by: Keith Packard <keithp@keithp.com>
---
 src/lisp/ao_lisp_int.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src/lisp/ao_lisp_int.c')

diff --git a/src/lisp/ao_lisp_int.c b/src/lisp/ao_lisp_int.c
index 77f65e95..3b5341bd 100644
--- a/src/lisp/ao_lisp_int.c
+++ b/src/lisp/ao_lisp_int.c
@@ -15,7 +15,7 @@
 #include "ao_lisp.h"
 
 void
-ao_lisp_int_print(ao_poly p)
+ao_lisp_int_write(ao_poly p)
 {
 	int i = ao_lisp_poly_int(p);
 	printf("%d", i);
-- 
cgit v1.2.3