X-Git-Url: https://thelambdalab.xyz/gitweb/index.cgi?a=blobdiff_plain;f=scheme-library.scm;h=b92795dfd03f29005d13aa3ac9eb57e5abadbfb3;hb=7888f570d4b32b447622e25c38a4e78197cc7732;hp=dc345cf7e7d688ea11cd1a0b043d092f74814d89;hpb=9b75e5d50017b95ee8d10ade294c6676a1a60af4;p=scheme.forth.jl.git

diff --git a/scheme-library.scm b/scheme-library.scm
index dc345cf..b92795d 100644
--- a/scheme-library.scm
+++ b/scheme-library.scm
@@ -28,11 +28,12 @@
     (append (reverse (cdr l)) (list (car l)))))
 
 ;; LIBRARY FORMS
-(define-macro (let value . body )
-              (list (list 'lambda (list (car value)) body)) (cdr value))
 
 ;; TESTING
 
+(define-macro (backwards . body)
+              (cons 'begin (reverse body)))
+
 ; Basic iterative summation.  Run this on large numbers to
 ; test garbage collection and tail-call optimization.
 (define (sum n)