altos/lisp: remove duplicate 'length' lambda from hanoi example

This function is now a builtin.

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

diff --git a/src/lambdakey-v1.0/Makefile b/src/lambdakey-v1.0/Makefile
index 7f71761b5355becf1823d0bf98cca2b92467af9f..feadfa91127393441db05108468f576df41e604e 100644 (file)
--- a/src/lambdakey-v1.0/Makefile
+++ b/src/lambdakey-v1.0/Makefile
@@ -15,6 +15,7 @@ INC = \
        ao_task.h \
        ao_lisp.h \
        ao_lisp_const.h \
+       ao_lisp_os.h \
        stm32f0.h \
        Makefile
 

diff --git a/src/test/hanoi.lisp b/src/test/hanoi.lisp
index b84b8174737c56d928d0b790f140f31ab6e087da..66a8d04bc6b4dbbec4757bf7e59722424ec1e5be 100644 (file)
--- a/src/test/hanoi.lisp
+++ b/src/test/hanoi.lisp
@@ -62,14 +62,6 @@
        )
   )
 
-; This should probably be included in the rom image...
-
-(defun length (list)
-  (cond (list (1+ (length (cdr list))))
-       (0)
-       )
-  )
-
 ; Position of the top of the stack on the screen
 ; Shorter stacks start further down the screen