|
|
@ -8,7 +8,6 @@
|
|
|
|
racket/path
|
|
|
|
racket/path
|
|
|
|
racket/list
|
|
|
|
racket/list
|
|
|
|
racket/match
|
|
|
|
racket/match
|
|
|
|
racket/string
|
|
|
|
|
|
|
|
racket/serialize
|
|
|
|
racket/serialize
|
|
|
|
sugar/coerce
|
|
|
|
sugar/coerce
|
|
|
|
sugar/test
|
|
|
|
sugar/test
|
|
|
@ -117,5 +116,11 @@
|
|
|
|
private-cache-dir
|
|
|
|
private-cache-dir
|
|
|
|
generate-dest-file
|
|
|
|
generate-dest-file
|
|
|
|
#:notify-cache-use notify-proc
|
|
|
|
#:notify-cache-use notify-proc
|
|
|
|
#:max-cache-size (setup:compile-cache-max-size))
|
|
|
|
#:max-cache-size (setup:compile-cache-max-size)
|
|
|
|
|
|
|
|
#:log-error-string
|
|
|
|
|
|
|
|
(λ (str)
|
|
|
|
|
|
|
|
(match str
|
|
|
|
|
|
|
|
;; concurrency-related error that has no larger consequence
|
|
|
|
|
|
|
|
["cache attempt failed: could not acquire exclusive lock" (void)]
|
|
|
|
|
|
|
|
[_ (log-pollen-error str)])))
|
|
|
|
(deserialize (file->value dest-file)))
|
|
|
|
(deserialize (file->value dest-file)))
|