From: Keith Packard <keithp@keithp.com>
Date: Fri, 15 Dec 2017 07:09:02 +0000 (-0800)
Subject: altos/lambdakey-v1.0: shrink scheme code to fit the ROM
X-Git-Tag: 1.8.4~1^2~23
X-Git-Url: https://git.gag.com/?a=commitdiff_plain;h=a4c9233aa8a2f1b1dca6580d6d6275b48c40f01f;p=fw%2Faltos

altos/lambdakey-v1.0: shrink scheme code to fit the ROM

scheme has grown a bit; adapt

Signed-off-by: Keith Packard <keithp@keithp.com>
---

diff --git a/src/lambdakey-v1.0/ao_lambdakey_const.scheme b/src/lambdakey-v1.0/ao_lambdakey_const.scheme
index d0c0e578..50373272 100644
--- a/src/lambdakey-v1.0/ao_lambdakey_const.scheme
+++ b/src/lambdakey-v1.0/ao_lambdakey_const.scheme
@@ -100,8 +100,6 @@
 
 (define (cdar l) (cdr (car l)))
 
-(define (caddr l) (car (cdr (cdr l))))
-
 					; (if <condition> <if-true>)
 					; (if <condition> <if-true> <if-false)
 
@@ -192,23 +190,14 @@
 (define (list-tail a b)
   (if (zero? b)
       a
-    (list-tail (cdr a (- b 1)))
-    )
+      (list-tail (cdr a) (- b 1))
+      )
   )
 
 (define (list-ref a b)
   (car (list-tail a b))
   )
 
-(define (list-tail a b)
-  (if (zero? b)
-      a
-    (list-tail (cdr a) (- b 1))))
-
-(list-tail '(1 2 3) 2)
-
-(define (list-ref a b) (car (list-tail a b)))
-
 (list-ref '(1 2 3) 2)
     
 
@@ -346,9 +335,6 @@
 
 (define string (lambda a (list->string a)))
 
-(display "apply\n")
-(apply cons '(a b))
-
 (define map
   (lambda (a . b)
 	 (define (args b)
@@ -378,12 +364,6 @@
 
 (map cadr '((a b) (d e) (g h)))
 
-(define for-each (lambda (a . b)
-			(apply map a b)
-			#t))
-
-(for-each display '("hello" " " "world" "\n"))
-
 (define (newline) (write-char #\newline))
 
 (newline)