diff options
| author | Keith Packard <keithp@keithp.com> | 2016-11-15 10:32:36 -0800 |
|---|---|---|
| committer | Keith Packard <keithp@keithp.com> | 2016-11-17 22:18:39 -0800 |
| commit | 8e4d467b21b0df987234cd7fd09d763021c6e288 (patch) | |
| tree | 32738a49bf68bed800113bac8bc5d33c28af417e | |
| parent | f3ac87a792527e9b7eb888e0c1f86fe49dc49bbc (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 |