conservatory
/
picrin
4
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

add a comment

This commit is contained in:
Yuichi Nishiwaki 2013-12-10 03:14:08 -08:00
parent cb43c9f35d
commit d1752bb236
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
piclib/built-in.scm
View File

@ -282,6 +282,8 @@
s s
(fold f (f (car xs) s) (cdr xs)))) (fold f (f (car xs) s) (cdr xs))))
;;; multiple value
(define (values . args) (define (values . args)
(if (and (pair? args) (if (and (pair? args)
(null? (cdr args))) (null? (cdr args)))