From d1752bb236deeab9884f2132ec7fc1e8255f9e63 Mon Sep 17 00:00:00 2001 From: Yuichi Nishiwaki Date: Tue, 10 Dec 2013 03:14:08 -0800 Subject: [PATCH] add a comment --- piclib/built-in.scm | 2 ++ 1 file changed, 2 insertions(+) diff --git a/piclib/built-in.scm b/piclib/built-in.scm index a875aeb3..ee5366dd 100644 --- a/piclib/built-in.scm +++ b/piclib/built-in.scm @@ -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)))