From cc3e6d68b61382008d3e8cbec5785f66e243bbe1 Mon Sep 17 00:00:00 2001 From: David Thompson 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(-) (limited to 'chapter-7/propagators.scm') 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