~ chicken-core (chicken-5) 7967bdf6ab72548f781f30e09673a03205533cd2

commit 7967bdf6ab72548f781f30e09673a03205533cd2
Author:     felix <felix@y.(none)>
AuthorDate: Sun Mar 28 14:32:49 2010 +0200
Commit:     felix <felix@y.(none)>
CommitDate: Sun Mar 28 14:32:49 2010 +0200

    removed warning and feature

diff --git a/compiler.scm b/compiler.scm
index cea1ea55..bf4c0d24 100644
--- a/compiler.scm
+++ b/compiler.scm
@@ -841,19 +841,6 @@
 							    '()
 							    (##sys#compiled-module-registration (##sys#current-module)))))))
 					       (else
-						(when (and (pair? body)
-							   (null? xs)
-							   (pair? (car body))
-							   (symbol? (caar body))
-							   (let ((imp (or (lookup (caar body) se) (caar body))))
-							     (and (not (memq imp '(import import-for-syntax)))
-								  ;; can it get any uglier? yes, it can
-								  (not (eq? imp (cdr (assq 'import ##sys#initial-macro-environment))))
-								  (not (eq? imp (cdr (assq 'import-for-syntax ##sys#initial-macro-environment)))))))
-						  (compiler-warning 
-						   'syntax
-						   "module body of `~s' does not begin with `import' form - maybe unintended?"
-						   name))
 						(loop 
 						 (cdr body)
 						 (cons (walk 
diff --git a/expand.scm b/expand.scm
index 73d4b9e5..6ca44c93 100644
--- a/expand.scm
+++ b/expand.scm
@@ -37,7 +37,7 @@
 
 
 (set! ##sys#features
-  (append '(#:hygienic-macros #:syntax-rules #:explicit-renaming) ##sys#features))
+  (append '(#:hygienic-macros #:syntax-rules) ##sys#features))
 
 (define (d arg1 . more)
   (when (##sys#fudge 13)