wiff

5 years ago · 091b3c693a
parent e7333f4fc6
commit 091b3c693a
1 changed files with 2 additions and 1 deletions
--- 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)))))