From 92749325a9ac2a37efde9dd8914b2306c1f80276 Mon Sep 17 00:00:00 2001
From: Yuichi Nishiwaki <yuichi.nishiwaki@gmail.com>
Date: Tue, 9 Sep 2014 01:38:52 +0900
Subject: [PATCH] fix a bug in the definitino of define-values

---
 boot.c | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/boot.c b/boot.c
index 7bb9ca1a..00b1671e 100644
--- a/boot.c
+++ b/boot.c
@@ -244,7 +244,7 @@ my $src = <<'EOL';
                     (if (symbol? formal)
                         `((,(r 'define) ,formal #f))
                         '())
-                    `((,(r 'define) ,(car formal) #f) . ,@(loop (cdr formal)))))
+                    `((,(r 'define) ,(car formal) #f) . ,(loop (cdr formal)))))
             (,(r 'call-with-values) (,(r 'lambda) () ,@exprs)
               (,(r 'lambda) ,(r 'args)
                 ,@(let loop ((formal formal) (args (r 'args)))
@@ -615,7 +615,7 @@ const char pic_boot[] =
 "                    (if (symbol? formal)\n"
 "                        `((,(r 'define) ,formal #f))\n"
 "                        '())\n"
-"                    `((,(r 'define) ,(car formal) #f) . ,@(loop (cdr formal)))))\n"
+"                    `((,(r 'define) ,(car formal) #f) . ,(loop (cdr formal)))))\n"
 "            (,(r 'call-with-values) (,(r 'lambda) () ,@exprs)\n"
 "              (,(r 'lambda) ,(r 'args)\n"
 "                ,@(let loop ((formal formal) (args (r 'args)))\n"