diff options
| author | David Thompson <dthompson2@worcester.edu> | 2024-07-09 17:49:41 -0400 |
|---|---|---|
| committer | David Thompson <dthompson2@worcester.edu> | 2024-07-09 17:49:41 -0400 |
| commit | cc3e6d68b61382008d3e8cbec5785f66e243bbe1 (patch) | |
| tree | 680ccdccf8a518fbf890579f32c7da55d6536a5c | |
| parent | e6b21c6e9e4453b262bc96ec4af2f611a41dae09 (diff) | |
Small refactor of cond expression.
| -rw-r--r-- | chapter-7/propagators.scm | 3 |
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* |