From ab382f520494c741d8face1593c77c7a31c27226 Mon Sep 17 00:00:00 2001 From: Dirk Herrmann Date: Sat, 16 Nov 2002 15:05:29 +0000 Subject: [PATCH] * boot-9.scm (define-private, export-syntax, export-syntax): Changed definitions to form 'real' macro definitions. --- ice-9/ChangeLog | 5 +++++ ice-9/boot-9.scm | 9 ++++++--- 2 files changed, 11 insertions(+), 3 deletions(-) diff --git a/ice-9/ChangeLog b/ice-9/ChangeLog index eae5a2de0..dda96bfc8 100644 --- a/ice-9/ChangeLog +++ b/ice-9/ChangeLog @@ -1,3 +1,8 @@ +2002-11-16 Dirk Herrmann + + * boot-9.scm (define-private, export-syntax, export-syntax): + Changed definitions to form 'real' macro definitions. + 2002-11-07 Marius Vollmer * format.scm (format): Use 'monitor' properly. Not the definition diff --git a/ice-9/boot-9.scm b/ice-9/boot-9.scm index ebbfd4d00..629617890 100644 --- a/ice-9/boot-9.scm +++ b/ice-9/boot-9.scm @@ -2591,7 +2591,8 @@ (else (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 (define (syntax) @@ -2666,9 +2667,11 @@ (else (error "re-export can only be used at the top level")))) -(define export-syntax export) -(define re-export-syntax re-export) +(defmacro export-syntax names + `(export ,names)) +(defmacro export-syntax names + `(export ,names)) (define load load-module)