diff options
| author | Keith Packard <keithp@keithp.com> | 2016-11-15 10:32:36 -0800 |
|---|---|---|
| committer | Keith Packard <keithp@keithp.com> | 2017-02-20 11:16:51 -0800 |
| commit | 994adc7a47cbf3cbf6041eca7430273f8018de08 (patch) | |
| tree | f4432e264c7c9ce0b19f94c3c09fc2016a3f6ce3 | |
| parent | 41175ff82bc0e35c99c60b49aa62944a12917157 (diff) | |
altos/lisp: remove duplicate 'length' lambda from hanoi example
This function is now a builtin.
Signed-off-by: Keith Packard <keithp@keithp.com>
| -rw-r--r-- | src/lambdakey-v1.0/Makefile | 1 | ||||
| -rw-r--r-- | src/test/hanoi.lisp | 8 |
2 files changed, 1 insertions, 8 deletions
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 |