summaryrefslogtreecommitdiff
path: root/chapter-7/propagators.scm
diff options
context:
space:
mode:
Diffstat (limited to 'chapter-7/propagators.scm')
-rw-r--r--chapter-7/propagators.scm3
1 files changed, 2 insertions, 1 deletions
diff --git a/chapter-7/propagators.scm b/chapter-7/propagators.scm
index acd45b4..1835d9c 100644
--- a/chapter-7/propagators.scm
+++ b/chapter-7/propagators.scm
@@ -354,7 +354,8 @@
(cond
((nothing? old) new)
((nothing? new) old)
- (else (if (ephemeral-fresher? new old) new old))))
+ ((ephemeral-fresher? new old) new)
+ (else old)))
(define (ephemeral-wrap proc)
(match-lambda*