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)