From a1d8af908be5cee88321cf8976858e19d9fc15c3 Mon Sep 17 00:00:00 2001 From: Yuichi Nishiwaki Date: Tue, 21 Jul 2015 00:57:59 +0900 Subject: [PATCH] [bugfix] include macro broken --- contrib/20.r7rs/scheme/base.scm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/contrib/20.r7rs/scheme/base.scm b/contrib/20.r7rs/scheme/base.scm index 7976fddc..12bc14cd 100644 --- a/contrib/20.r7rs/scheme/base.scm +++ b/contrib/20.r7rs/scheme/base.scm @@ -34,7 +34,7 @@ ;; 4.1.7. Inclusion - (define-syntax include + (define-macro include (letrec ((read-file (lambda (filename) (call-with-port (open-input-file filename)