From cc3e6d68b61382008d3e8cbec5785f66e243bbe1 Mon Sep 17 00:00:00 2001
From: David Thompson <dthompson2@worcester.edu>
Date: Tue, 9 Jul 2024 17:49:41 -0400
Subject: Small refactor of cond expression.

---
 chapter-7/propagators.scm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

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*
-- 
cgit v1.2.3