~ chicken-core (chicken-5) fa94f2449007442f40e0f650a79c20a7f99d0640

commit fa94f2449007442f40e0f650a79c20a7f99d0640
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Fri Mar 12 14:52:37 2010 +0100
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Wed Mar 24 07:32:25 2010 +0100

    more work

diff --git a/expand.scm b/expand.scm
index c952aa37..a64dbb5a 100644
--- a/expand.scm
+++ b/expand.scm
@@ -1087,50 +1087,6 @@
 	     `((##sys#setter ,(car dest)) ,@(cdr dest) ,val))
 	    (else `(##core#set! ,dest ,val)))))))
 
-(##sys#extend-macro-environment
- 'let
- '()
- (##sys#er-transformer
-  (lambda (form r c)
-    (##sys#check-syntax 'let x '(_ #((symbol _) 0) . #(_ 1)))
-    `(##core#let ,@(cdr x)))))
-
-(##sys#extend-macro-environment
- 'letrec
- '()
- (##sys#er-transformer
-  (lambda (form r c)
-    (##sys#check-syntax 'letrec x '(_ #((symbol _) 0) . #(_ 1)))
-    `(##core#letrec ,@(cdr x)))))
-
-(##sys#extend-macro-environment
- 'let-syntax
- '()
- (##sys#er-transformer
-  (lambda (form r c)
-    (##sys#check-syntax 'let-syntax x '(_ #((symbol _) 0) . #(_ 1)))
-    `(##core#let-syntax ,@(cdr x)))))
-
-(##sys#extend-macro-environment
- 'letrec-syntax
- '()
- (##sys#er-transformer
-  (lambda (form r c)
-    (##sys#check-syntax 'letrec-syntax x '(_ #((symbol _) 0) . #(_ 1)))
-    `(##core#letrec-syntax ,@(cdr x)))))
-
-(##sys#extend-macro-environment
- 'set!
- '()
- (##sys#er-transformer
-  (lambda (form r c)
-    (##sys#check-syntax 'set! x '(_ _ _))
-    (let ((dest (cadr x))
-	  (val (caddr x)))
-      (cond ((pair? dest)
-	     `((##sys#setter ,(car dest)) ,@(cdr dest) ,val))
-	    (else `(##core#set! ,dest ,val)))))))
-
 (##sys#extend-macro-environment
  'and
  '()