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

[fw/altos] / src / test / hanoi.lisp

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