From 6aa9ea7c90e1cb9075add79d91074d8e1f6b3d7c Mon Sep 17 00:00:00 2001 From: Dirk Herrmann Date: Sat, 16 Nov 2002 15:40:27 +0000 Subject: [PATCH] * boot-9.scm (define-private, export-syntax, export-syntax): Fixed my previous fix (blush). --- ice-9/ChangeLog | 5 +++++ ice-9/boot-9.scm | 6 +++--- 2 files changed, 8 insertions(+), 3 deletions(-) diff --git a/ice-9/ChangeLog b/ice-9/ChangeLog index dda96bfc8..b68f9bea0 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): + Fixed my previous fix (blush). + 2002-11-16 Dirk Herrmann * boot-9.scm (define-private, export-syntax, export-syntax): diff --git a/ice-9/boot-9.scm b/ice-9/boot-9.scm index 629617890..f470020cf 100644 --- a/ice-9/boot-9.scm +++ b/ice-9/boot-9.scm @@ -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)