From c66a217e87f360ed9b27855bc11164e715a5599a Mon Sep 17 00:00:00 2001 From: Yuichi Nishiwaki Date: Sat, 11 Jan 2014 12:55:34 +0900 Subject: [PATCH] Types that can be passed to the rename procedure is only a symbol --- piclib/built-in.scm | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/piclib/built-in.scm b/piclib/built-in.scm index 6921d192..13aff947 100644 --- a/piclib/built-in.scm +++ b/piclib/built-in.scm @@ -245,9 +245,9 @@ (er-macro-transformer (lambda (expr r c) `(,(r 'define-syntax) ,(cadr expr) - ,(r '(sc-macro-transformer - (lambda (expr env) - (error "invalid use of auxiliary syntax")))))))) + (,(r 'sc-macro-transformer) + (,(r 'lambda) (expr env) + (,(r 'error) "invalid use of auxiliary syntax"))))))) (define-auxiliary-syntax else) (define-auxiliary-syntax =>)