From 091b3c693abfa0bbd996157572d8bc060e6c09f9 Mon Sep 17 00:00:00 2001
From: Matthew Butterick <mb@mbtype.com>
Date: Mon, 6 Apr 2020 14:28:39 -0700
Subject: [PATCH] wiff

---
 pollen/private/cache-utils.rkt | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/pollen/private/cache-utils.rkt b/pollen/private/cache-utils.rkt
index 8ce5b2c..f95eab6 100644
--- a/pollen/private/cache-utils.rkt
+++ b/pollen/private/cache-utils.rkt
@@ -134,4 +134,5 @@
                   [(or "cache attempt failed: could not acquire exclusive lock"
                        "cache attempt failed: could not acquire shared lock") (void)]
                   [_ (log-pollen-error str)])))
-  (fasl->s-exp (open-input-file dest-file)))
+  (with-input-from-file dest-file
+    (λ () (fasl->s-exp (current-input-port)))))