projects
/
fw
/
altos
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
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
; Position of the top of the stack on the screen
; Shorter stacks start further down the screen