From e7333f4fc632c6cfad002939748397999034b684 Mon Sep 17 00:00:00 2001 From: Matthew Butterick Date: Mon, 6 Apr 2020 14:06:29 -0700 Subject: [PATCH] correction --- pollen/private/cache-utils.rkt | 7 +++---- 1 file changed, 3 insertions(+), 4 deletions(-) diff --git a/pollen/private/cache-utils.rkt b/pollen/private/cache-utils.rkt index 6801160..8ce5b2c 100644 --- a/pollen/private/cache-utils.rkt +++ b/pollen/private/cache-utils.rkt @@ -1,4 +1,4 @@ -#lang debug racket/base +#lang racket/base (require "file-utils.rkt" "../setup.rkt" "project.rkt" @@ -109,9 +109,8 @@ (define dest-file (build-path cache-dir (format "~a.rktd" dest-path-filename))) (define (generate-dest-file) (message-debug (format "cache miss for ~a" dest-file)) - (define op (open-output-file dest-file)) - (with-output-to-file op - (λ () #R 'whee (s-exp->fasl #R (path-hash-thunk) (current-output-port))) + (with-output-to-file dest-file + (λ () (s-exp->fasl (path-hash-thunk) (current-output-port))) #:exists 'replace)) ;; `cache-file` looks for a file in private-cache-dir previously cached with key