~ chicken-r7rs (master) 1c9d631852c906c7dcb07bd18a05982da9f34496

commit 1c9d631852c906c7dcb07bd18a05982da9f34496
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Tue May 29 20:37:58 2018 +0200
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Tue May 29 20:37:58 2018 +0200

    some simplifications, still broken

diff --git a/r7rs.scm b/r7rs.scm
index 25d52ff..724a12c 100644
--- a/r7rs.scm
+++ b/r7rs.scm
@@ -3,18 +3,16 @@
   (import (except scheme syntax-rules))	;XXX except ...
   (import (only chicken.platform feature? register-feature!))
   (import (only chicken.base include))
+  (import chicken.module)
+  (import (only chicken.syntax begin-for-syntax))
+  (import srfi-4)
 
   ;; For syntax definition helpers.
   (import-for-syntax matchable)
   (import-for-syntax r7rs-compile-time)
-  (begin-for-syntax
-    (require-library r7rs-compile-time))
-
-  ;; For #u8(...) syntax.
-  (require-extension srfi-4)
 
   ;; Reexport (scheme base).
-  (require-extension scheme.base)
+  (import scheme.base)
   (include "scheme.base-interface.scm")
 
 (let ((old-hook ##sys#user-read-hook))