add a comment
This commit is contained in:
parent
cb43c9f35d
commit
d1752bb236
|
@ -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)))
|
||||
|
|
Loading…
Reference in New Issue