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

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

Browse source 
Changed definitions to form 'real' macro definitions.
This commit is contained in:
Dirk Herrmann 2002-11-16 15:05:29 +00:00
parent 7673491416
commit ab382f5204
2 changed files with 11 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):
Changed definitions to form 'real' macro definitions.
2002-11-07 Marius Vollmer <marius.vollmer@uni-dortmund.de> 2002-11-07 Marius Vollmer <marius.vollmer@uni-dortmund.de>
* format.scm (format): Use 'monitor' properly. Not the definition * format.scm (format): Use 'monitor' properly. Not the definition

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

@ -2591,7 +2591,8 @@
(else (else
(error "use-syntax can only be used at the top level")))) (error "use-syntax can only be used at the top level"))))
(define define-private define) (defmacro define-private args
`(define ,args))
(defmacro define-public args (defmacro define-public args
(define (syntax) (define (syntax)
@ -2666,9 +2667,11 @@
(else (else
(error "re-export can only be used at the top level")))) (error "re-export can only be used at the top level"))))
(define export-syntax export) (defmacro export-syntax names
(define re-export-syntax re-export) `(export ,names))
(defmacro export-syntax names
`(export ,names))
(define load load-module) (define load load-module)