From 1b68d041a58c475d070161812e0ebaf6fad53483 Mon Sep 17 00:00:00 2001 From: Andy Wingo Date: Mon, 1 Sep 2008 23:40:10 -0700 Subject: [PATCH] nits picked on boot-9.scm * ice-9/boot-9.scm (defmacro): Indentation fix. (begin-deprecated): Don't cons in the `begin' macro itself, only the symbol `begin'. --- ice-9/boot-9.scm | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/ice-9/boot-9.scm b/ice-9/boot-9.scm index 138ea16b7..7f7839049 100644 --- a/ice-9/boot-9.scm +++ b/ice-9/boot-9.scm @@ -162,7 +162,7 @@ (let ((transformer `(lambda ,parms ,@body))) `(eval-case ((load-toplevel compile-toplevel) - (define ,name (defmacro:transformer ,transformer))) + (define ,name (defmacro:transformer ,transformer))) (else (error "defmacro can only be used at the top level"))))))) (defmacro:transformer defmacro-transformer))) @@ -206,8 +206,8 @@ (defmacro begin-deprecated forms (if (include-deprecated-features) - (cons begin forms) - #f)) + `(begin ,@forms) + (begin)))