summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorDavid Thompson <dthompson2@worcester.edu>2024-07-09 17:49:41 -0400
committerDavid Thompson <dthompson2@worcester.edu>2024-07-09 17:49:41 -0400
commitcc3e6d68b61382008d3e8cbec5785f66e243bbe1 (patch)
tree680ccdccf8a518fbf890579f32c7da55d6536a5c
parente6b21c6e9e4453b262bc96ec4af2f611a41dae09 (diff)
Small refactor of cond expression.
-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*