[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
guile/guile-core/ice-9 ChangeLog boot-9.scm
From: |
Mikael Djurfeldt |
Subject: |
guile/guile-core/ice-9 ChangeLog boot-9.scm |
Date: |
Wed, 17 Oct 2001 07:59:34 -0400 |
CVSROOT: /cvs
Module name: guile
Branch: branch_release-1-6
Changes by: Mikael Djurfeldt <address@hidden> 01/10/17 07:59:34
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&only_with_tag=branch_release-1-6&tr1=1.461.2.21&tr2=1.461.2.22&r1=text&r2=text
http://savannah.gnu.org/cgi-bin/viewcvs/guile/guile-core/ice-9/boot-9.scm.diff?cvsroot=OldCVS&only_with_tag=branch_release-1-6&tr1=1.266.2.6&tr2=1.266.2.7&r1=text&r2=text
Patches:
Index: guile/guile-core/ice-9/ChangeLog
diff -u guile/guile-core/ice-9/ChangeLog:1.484
guile/guile-core/ice-9/ChangeLog:1.485
--- guile/guile-core/ice-9/ChangeLog:1.484 Mon Oct 8 08:40:14 2001
+++ guile/guile-core/ice-9/ChangeLog Sun Oct 14 12:04:34 2001
@@ -1,3 +1,10 @@
+2001-10-14 Mikael Djurfeldt <address@hidden>
+
+ * arrays.scm (read:uniform-vector): Return *unspecified* instead
+ of raising an exception if hash extend character isn't followed by
+ the array list. (This prevents parsing of uniform vectors from
+ interfering with parsing of numbers.)
+
2001-10-08 Mikael Djurfeldt <address@hidden>
* emacs.scm (%%load-port, %%emacs-load, %%emacs-eval-request,
Index: guile/guile-core/ice-9/boot-9.scm
diff -u guile/guile-core/ice-9/boot-9.scm:1.273
guile/guile-core/ice-9/boot-9.scm:1.274
--- guile/guile-core/ice-9/boot-9.scm:1.273 Wed Sep 19 08:56:28 2001
+++ guile/guile-core/ice-9/boot-9.scm Mon Sep 24 07:12:23 2001
@@ -1705,13 +1705,15 @@
(beautify-user-module! module)
(let loop ((kws kws)
(reversed-interfaces '())
- (exports '()))
+ (exports '())
+ (re-exports '()))
(if (null? kws)
(begin
(for-each (lambda (interface)
(module-use! module interface))
(reverse reversed-interfaces))
- (module-export! module exports))
+ (module-export! module exports)
+ (module-re-export! module re-exports))
(case (car kws)
((#:use-module #:use-syntax)
(or (pair? (cdr kws))
@@ -1729,7 +1731,8 @@
#f)))
(loop (cddr kws)
(cons interface reversed-interfaces)
- exports)))
+ exports
+ re-exports)))
((#:autoload)
(or (and (pair? (cdr kws)) (pair? (cddr kws)))
(unrecognized kws))
@@ -1738,19 +1741,28 @@
(cadr kws)
(caddr kws))
reversed-interfaces)
- exports))
+ exports
+ re-exports))
((#:no-backtrace)
(set-system-module! module #t)
- (loop (cdr kws) reversed-interfaces exports))
+ (loop (cdr kws) reversed-interfaces exports re-exports))
((#:pure)
(purify-module! module)
- (loop (cdr kws) reversed-interfaces exports))
+ (loop (cdr kws) reversed-interfaces exports re-exports))
((#:export)
(or (pair? (cdr kws))
(unrecognized kws))
(loop (cddr kws)
reversed-interfaces
- (append (cadr kws) exports)))
+ (append (cadr kws) exports)
+ re-exports))
+ ((#:re-export)
+ (or (pair? (cdr kws))
+ (unrecognized kws))
+ (loop (cddr kws)
+ reversed-interfaces
+ exports
+ (append (cadr kws) re-exports)))
(else
(unrecognized kws)))))
module))
- guile/guile-core/ice-9 ChangeLog boot-9.scm,
Mikael Djurfeldt <=