From: Keith Packard <keithp@keithp.com>
Date: Tue, 15 Nov 2016 18:32:36 +0000 (-0800)
Subject: altos/lisp: remove duplicate 'length' lambda from hanoi example
X-Git-Tag: 1.7~160
X-Git-Url: https://git.gag.com/?p=fw%2Faltos;a=commitdiff_plain;h=994adc7a47cbf3cbf6041eca7430273f8018de08

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 7f71761b..feadfa91 100644
--- 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 b84b8174..66a8d04b 100644
--- 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