From ce7dc400f3e1c28111bb830f6a45b0f24d139022 Mon Sep 17 00:00:00 2001 From: Eli Barzilay Date: Thu, 7 Aug 2008 19:32:26 +0000 Subject: [PATCH] svn: r11129 --- collects/scheme/promise.ss | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/collects/scheme/promise.ss b/collects/scheme/promise.ss index 59e6ef3e0d..865bc5ed07 100644 --- a/collects/scheme/promise.ss +++ b/collects/scheme/promise.ss @@ -49,9 +49,9 @@ ;; - can also hold a raising-a-value thunk on exceptions and other ;; `raise'd values (actually, applicable structs for printouts) +;; Creates a `composable' promise +;; X = (force (lazy X)) = (force (lazy (lazy X))) = (force (lazy^n X)) (define-syntax (lazy stx) - ;; Creates a `composable' promise - ;; X = (force (lazy X)) = (force (lazy (lazy X))) = (force (lazy^n X)) (syntax-case stx () [(lazy expr) (with-syntax ([proc (syntax-property (syntax/loc stx (lambda () expr))