diff options
| -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* |