~ chicken-core (chicken-5) eb5e7e41f5def3c0333d007b213d35aa1e2f53ed

commit eb5e7e41f5def3c0333d007b213d35aa1e2f53ed
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Wed Mar 17 14:55:26 2010 +0100
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Wed Mar 24 07:38:17 2010 +0100

    some repairs

diff --git a/chicken-syntax.scm b/chicken-syntax.scm
index 127e92f1..829c9684 100644
--- a/chicken-syntax.scm
+++ b/chicken-syntax.scm
@@ -53,21 +53,6 @@
     (##sys#check-syntax 'define-constant form '(_ symbol _))
     `(##core#define-constant ,@(cdr form)))))
 
-(##sys#extend-macro-environment
- 'define-inline
- '()
- (##sys#er-transformer
-  (lambda (form r c)
-    (let ((head (cadr form)))
-      (cond ((pair? head)
-	     (##sys#check-syntax 'define-inline form '(_ (symbol . _) . #(_ 1)))
-	     `(##core#define-inline
-	       ,(car head)
-	       `(##core#lambda ,(cdr head) ,@(cdr form))))
-	    (else
-	     (##sys#check-syntax 'define-inline form '(_ symbol _))
-	     `(##core#define-inline ,@(cdr form))))))))
-
 (##sys#extend-macro-environment
  'define-record '()
  (##sys#er-transformer