From dbc196c246ef7613b721a237fbf50c20f4abdbcd Mon Sep 17 00:00:00 2001 From: Eli Barzilay Date: Sat, 4 Apr 2009 18:41:57 +0000 Subject: [PATCH] make (values x) return just x svn: r14420 --- collects/lazy/lazy.ss | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/collects/lazy/lazy.ss b/collects/lazy/lazy.ss index 4e3564a491..40454cfe05 100644 --- a/collects/lazy/lazy.ss +++ b/collects/lazy/lazy.ss @@ -160,7 +160,8 @@ (apply values (map ! (multiple-values-values x))) x))) - (define* (~values . xs) (make-multiple-values xs)) + (define* ~values + (case-lambda [(x) x] [xs (make-multiple-values xs)])) ;; Redefine multiple-value constructs so they split the results (defsubst (~define-values (v ...) body)