From cb5fa2d1ce8a2237f996a4371024f01aa8568c43 Mon Sep 17 00:00:00 2001 From: Pavel Panchekha Date: Fri, 19 Jul 2024 12:53:05 -0600 Subject: [PATCH] Fixed the bug --- src/web/demo.rkt | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) diff --git a/src/web/demo.rkt b/src/web/demo.rkt index 4c1f41bb9..f5bcd3d12 100644 --- a/src/web/demo.rkt +++ b/src/web/demo.rkt @@ -26,12 +26,12 @@ (define-coercion-match-expander hash-arg/m (λ (x) - (cond - [(*demo-output*) - (not (directory-exists? (build-path (*demo-output*) x)))] - [else - (let ([m (regexp-match #rx"^([0-9a-f]+)\\.[0-9a-f.]+" x)]) - (and m (completed-job? (second m))))])) + (and + (not + (and (*demo-output*) ; If we've already saved to disk, skip this job + (directory-exists? (build-path (*demo-output*) x)))) + (let ([m (regexp-match #rx"^([0-9a-f]+)\\.[0-9a-f.]+" x)]) + (and m (completed-job? (second m)))))) (λ (x) (let ([m (regexp-match #rx"^([0-9a-f]+)\\.[0-9a-f.]+" x)]) (get-results-for (if m (second m) x)))))