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)))))