mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-15 02:00:22 +02:00
Code Activity

nits picked on boot-9.scm

Browse source 
* ice-9/boot-9.scm (defmacro): Indentation fix.
  (begin-deprecated): Don't cons in the `begin' macro itself, only the
  symbol `begin'.
This commit is contained in:
Andy Wingo 2008-09-01 23:40:10 -07:00
parent 115b9ee8ab
commit 1b68d041a5
1 changed files with 3 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -162,7 +162,7 @@
(let ((transformer `(lambda ,parms ,@body))) (let ((transformer `(lambda ,parms ,@body)))
`(eval-case `(eval-case
((load-toplevel compile-toplevel) ((load-toplevel compile-toplevel)
(define ,name (defmacro:transformer ,transformer))) (define ,name (defmacro:transformer ,transformer)))
(else (else
(error "defmacro can only be used at the top level"))))))) (error "defmacro can only be used at the top level")))))))
(defmacro:transformer defmacro-transformer))) (defmacro:transformer defmacro-transformer)))
@ -206,8 +206,8 @@
(defmacro begin-deprecated forms (defmacro begin-deprecated forms
(if (include-deprecated-features) (if (include-deprecated-features)
(cons begin forms) `(begin ,@forms)
#f)) (begin)))