mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-08 21:20:19 +02:00
Code Activity

* boot-9.scm (define-private, export-syntax, export-syntax):

Browse source 
Fixed my previous fix (blush).
This commit is contained in:
Dirk Herrmann 2002-11-16 15:40:27 +00:00
parent ab382f5204
commit 6aa9ea7c90
2 changed files with 8 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

5
ice-9/ChangeLog
View file

@ -1,3 +1,8 @@
2002-11-16 Dirk Herrmann <D.Herrmann@tu-bs.de>
* boot-9.scm (define-private, export-syntax, export-syntax):
Fixed my previous fix (blush).
2002-11-16 Dirk Herrmann <D.Herrmann@tu-bs.de> 2002-11-16 Dirk Herrmann <D.Herrmann@tu-bs.de>
* boot-9.scm (define-private, export-syntax, export-syntax): * boot-9.scm (define-private, export-syntax, export-syntax):

6
ice-9/boot-9.scm
View file

@ -2592,7 +2592,7 @@
(error "use-syntax can only be used at the top level")))) (error "use-syntax can only be used at the top level"))))
(defmacro define-private args (defmacro define-private args
`(define ,args)) `(define ,@args))
(defmacro define-public args (defmacro define-public args
(define (syntax) (define (syntax)
@ -2668,10 +2668,10 @@
(error "re-export can only be used at the top level")))) (error "re-export can only be used at the top level"))))
(defmacro export-syntax names (defmacro export-syntax names
`(export ,names)) `(export ,@names))
(defmacro export-syntax names (defmacro export-syntax names
`(export ,names)) `(export ,@names))
(define load load-module) (define load load-module)