mirror of
https://git.savannah.gnu.org/git/guile.git
synced 2025-06-04 11:10:27 +02:00
* boot-9.scm (define-private, export-syntax, export-syntax):
Fixed my previous fix (blush).
This commit is contained in:
parent
ab382f5204
commit
6aa9ea7c90
2 changed files with 8 additions and 3 deletions
|
@ -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>
|
||||
|
||||
* boot-9.scm (define-private, export-syntax, export-syntax):
|
||||
|
|
|
@ -2592,7 +2592,7 @@
|
|||
(error "use-syntax can only be used at the top level"))))
|
||||
|
||||
(defmacro define-private args
|
||||
`(define ,args))
|
||||
`(define ,@args))
|
||||
|
||||
(defmacro define-public args
|
||||
(define (syntax)
|
||||
|
@ -2668,10 +2668,10 @@
|
|||
(error "re-export can only be used at the top level"))))
|
||||
|
||||
(defmacro export-syntax names
|
||||
`(export ,names))
|
||||
`(export ,@names))
|
||||
|
||||
(defmacro export-syntax names
|
||||
`(export ,names))
|
||||
`(export ,@names))
|
||||
|
||||
(define load load-module)
|
||||
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue