guile/guile-core/ice-9 ChangeLog boot-9.scm

[Mikael Djurfeldt]

CVSROOT:        /cvs
Module name:    guile
Changes by:     Mikael Djurfeldt <address@hidden>       01/10/17 08:02:13

Modified files:
        guile-core/ice-9: ChangeLog boot-9.scm 

Log message:
        * boot-9.scm (process-define-module): New options: :export-syntax,
        :re-export-syntax

CVSWeb URLs:
http://savannah.gnu.org/cgi-bin/viewcvs/guile/guile-core/ice-9/ChangeLog.diff?cvsroot=OldCVS&tr1=1.485&tr2=1.486&r1=text&r2=text
http://savannah.gnu.org/cgi-bin/viewcvs/guile/guile-core/ice-9/boot-9.scm.diff?cvsroot=OldCVS&tr1=1.274&tr2=1.275&r1=text&r2=text

Patches:
Index: guile/guile-core/ice-9/ChangeLog
diff -u guile/guile-core/ice-9/ChangeLog:1.485 
guile/guile-core/ice-9/ChangeLog:1.486
--- guile/guile-core/ice-9/ChangeLog:1.485      Sun Oct 14 12:04:34 2001
+++ guile/guile-core/ice-9/ChangeLog    Wed Oct 17 08:02:12 2001
@@ -1,3 +1,8 @@
+2001-10-17  Mikael Djurfeldt  <address@hidden>
+
+       * boot-9.scm (process-define-module): New options: :export-syntax,
+       :re-export-syntax
+
 2001-10-14  Mikael Djurfeldt  <address@hidden>
 
        * arrays.scm (read:uniform-vector): Return *unspecified* instead
Index: guile/guile-core/ice-9/boot-9.scm
diff -u guile/guile-core/ice-9/boot-9.scm:1.274 
guile/guile-core/ice-9/boot-9.scm:1.275
--- guile/guile-core/ice-9/boot-9.scm:1.274     Mon Sep 24 07:12:23 2001
+++ guile/guile-core/ice-9/boot-9.scm   Wed Oct 17 08:02:13 2001
@@ -1749,14 +1749,14 @@
            ((#:pure)
             (purify-module! module)
             (loop (cdr kws) reversed-interfaces exports re-exports))
-           ((#:export)
+           ((#:export #:export-syntax)
             (or (pair? (cdr kws))
                 (unrecognized kws))
             (loop (cddr kws)
                   reversed-interfaces
                   (append (cadr kws) exports)
                   re-exports))
-           ((#:re-export)
+           ((#:re-export #:re-export-syntax)
             (or (pair? (cdr kws))
                 (unrecognized kws))
             (loop (cddr kws)