From 7503586cea75ea234b27d919dd14a14b2941581f Mon Sep 17 00:00:00 2001 From: Eli Barzilay Date: Sun, 15 Jul 2007 06:39:12 +0000 Subject: [PATCH] comment svn: r6919 --- collects/lazy/force.ss | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/collects/lazy/force.ss b/collects/lazy/force.ss index 50f2c6f398..2a87b6a129 100644 --- a/collects/lazy/force.ss +++ b/collects/lazy/force.ss @@ -34,9 +34,10 @@ ;; Multiple values are problematic: MzScheme promises can use multiple ;; values, but to carry that out `call-with-values' should be used in all ;; places that deal with multiple values, which will make the whole thing - ;; much slower -- but multiple values are rarely used (spceifically, students - ;; never use them). Instead, `values' is redefined to produce a first-class - ;; tuple-holding struct, and `split-values' turns that into multiple values. + ;; much slower (about twice in tight loops) -- but multiple values are rarely + ;; used (spceifically, students never use them). So `values' is redefined to + ;; produce a first-class tuple-holding struct, and `split-values' turns that + ;; into multiple values. (define-struct multiple-values (values)) (define (split-values x) (let ([x (! x)])