X-Git-Url: https://git.gag.com/?p=fw%2Faltos;a=blobdiff_plain;f=src%2Flambdakey-v1.0%2Fao_lambdakey_const.scheme;fp=src%2Flambdakey-v1.0%2Fao_lambdakey_const.scheme;h=503732723e7088880858e80a8a1956a1af98f423;hp=d0c0e57895d54c883ddbd82f8507bee22b7b5076;hb=a4c9233aa8a2f1b1dca6580d6d6275b48c40f01f;hpb=32f6877288ea6b7eb1cae9a42fbe8e2c5dbb2f08

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)