X-Git-Url: https://git.gag.com/?a=blobdiff_plain;f=src%2Ftest%2Fhanoi.lisp;fp=src%2Ftest%2Fhanoi.lisp;h=66a8d04bc6b4dbbec4757bf7e59722424ec1e5be;hb=994adc7a47cbf3cbf6041eca7430273f8018de08;hp=b84b8174737c56d928d0b790f140f31ab6e087da;hpb=41175ff82bc0e35c99c60b49aa62944a12917157;p=fw%2Faltos

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