r7rs library import vs use pasted by sethalves on Fri Jul 26 20:44:09 2013

ponk% svn diff
Index: r7rs-compile-time.scm
===================================================================
--- r7rs-compile-time.scm       (revision 29419)
+++ r7rs-compile-time.scm       (working copy)
@@ -93,7 +93,7 @@
              specs))
        (define (parse-imports specs)
         (map (lambda (spec)
-               `(import ,(fixup-import/export-spec spec 'import)))
+               `(##core#require-extension (,(fixup-import/export-spec spec 'import)) #t))
              specs))
        (define (process-includes fnames ci?)
         `(##core#begin
[ permalink | raw ]

And this? added by sjamaan on Fri Jul 26 20:45:21 2013

Index: r7rs-compile-time.scm
===================================================================
--- r7rs-compile-time.scm	(revision 29419)
+++ r7rs-compile-time.scm	(working copy)
@@ -92,9 +92,9 @@
 		(spec (syntax-error 'define-library "invalid export specifier" spec name)))
 	      specs))
        (define (parse-imports specs)
-	 (map (lambda (spec)
-		`(import ,(fixup-import/export-spec spec 'import)))
-	      specs))
+	 `(##core#require-extension
+           (map (lambda (spec) (fixup-import/export-spec spec 'import)) specs)
+           #t))
        (define (process-includes fnames ci?)
 	 `(##core#begin
 	   ,@(map (match-lambda
[ permalink | raw ]