add a comment

This commit is contained in:
Yuichi Nishiwaki
2013-12-10 03:14:08 -08:00
parent cb43c9f35d
commit d1752bb236
+2
View File
@@ -282,6 +282,8 @@
s
(fold f (f (car xs) s) (cdr xs))))
;;; multiple value
(define (values . args)
(if (and (pair? args)
(null? (cdr args)))