altos/lisp: remove nth from hanoi.lisp

It's now in ROM.

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

diff --git a/src/test/ao_lisp_os.h b/src/test/ao_lisp_os.h
index 8b9c1475cbea625bd4d58f8b0fce6d811e11ea62..dedcca28f7e5b051bfb287f79b7116c0fb3e6431 100644 (file)
--- a/src/test/ao_lisp_os.h
+++ b/src/test/ao_lisp_os.h
@@ -23,7 +23,7 @@
 #include <time.h>
 
 #define AO_LISP_POOL_TOTAL     3072
-#define AO_LISP_SAVE
+#define AO_LISP_SAVE           1
 
 extern int ao_lisp_getc(void);
 

diff --git a/src/test/hanoi.lisp b/src/test/hanoi.lisp
index 66a8d04bc6b4dbbec4757bf7e59722424ec1e5be..aece2ba0d5764bd1215689e6e4e7c4b3c464ad63 100644 (file)
--- a/src/test/hanoi.lisp
+++ b/src/test/hanoi.lisp
@@ -106,12 +106,6 @@
        )
   )
 
-(defun nth (list n)
-  (cond ((= n 0) (car list))
-       ((nth (cdr list) (1- n)))
-       )
-  )
-
 ; Replace a stack in the list of stacks
 ; with a new value