fix a bug in the definitino of define-values

This commit is contained in:
Yuichi Nishiwaki 2014-09-09 01:38:52 +09:00
parent 5331d6f23c
commit 92749325a9
1 changed files with 2 additions and 2 deletions

4
boot.c
View File

@ -244,7 +244,7 @@ my $src = <<'EOL';
(if (symbol? formal) (if (symbol? formal)
`((,(r 'define) ,formal #f)) `((,(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 'call-with-values) (,(r 'lambda) () ,@exprs)
(,(r 'lambda) ,(r 'args) (,(r 'lambda) ,(r 'args)
,@(let loop ((formal formal) (args (r 'args))) ,@(let loop ((formal formal) (args (r 'args)))
@ -615,7 +615,7 @@ const char pic_boot[] =
" (if (symbol? formal)\n" " (if (symbol? formal)\n"
" `((,(r 'define) ,formal #f))\n" " `((,(r 'define) ,formal #f))\n"
" '())\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 'call-with-values) (,(r 'lambda) () ,@exprs)\n"
" (,(r 'lambda) ,(r 'args)\n" " (,(r 'lambda) ,(r 'args)\n"
" ,@(let loop ((formal formal) (args (r 'args)))\n" " ,@(let loop ((formal formal) (args (r 'args)))\n"