From 3f3d26c3f332398d45752674200dc569bd10b4d9 Mon Sep 17 00:00:00 2001 From: Eli Barzilay Date: Mon, 11 Feb 2008 14:22:07 +0000 Subject: [PATCH] temp fix svn: r8620 --- collects/srfi/45/lazy.ss | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/collects/srfi/45/lazy.ss b/collects/srfi/45/lazy.ss index a0872ec8bb..6ebb13a715 100644 --- a/collects/srfi/45/lazy.ss +++ b/collects/srfi/45/lazy.ss @@ -30,7 +30,7 @@ (mcdr content) (let* ((promise* ((mcdr content))) (content (srfi-45-promise-content promise))) - (unless (car content) + (unless (mcar content) (set-mcar! content (mcar (srfi-45-promise-content promise*))) (set-mcdr! content (mcdr (srfi-45-promise-content promise*))) (set-srfi-45-promise-content! promise* content))