suzanne.soy/compatibility
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

.

Browse Source 
original commit: 91bb4b4a96fb471fd79a3e48c2d7b12763fcd18e
This commit is contained in:
Matthew Flatt 2004-04-27 16:53:55 +00:00
parent 4ee5037950
commit 1979addf8f
2 changed files with 2 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/mzlib/cm-accomplice.ss
View File

@ -7,7 +7,7 @@
(raise-type-error 'register-external-file "complete path" f))
(let ([param (lambda () void)])
;; Load the code in a separate thread, so that the dynamic
;; extent of this one (likely a pase-sensitive macro expansion)
;; extent of this one (likely a phase-sensitive macro expansion)
;; doesn't pollute the load:
(thread-wait
(thread (lambda ()

5
collects/mzlib/cm.ss
View File

@ -4,7 +4,6 @@
(provide make-compilation-manager-load/use-compiled-handler
managed-compile-zo
current-managed-zo-compile
make-caching-managed-compile-zo
trust-existing-zos
manager-compile-notify-handler
@ -15,8 +14,6 @@
(define indent (make-parameter ""))
(define trust-existing-zos (make-parameter #f))
(define current-managed-zo-compile (make-parameter compile))
(define my-max
(case-lambda
(() 0)
@ -103,7 +100,7 @@
(set! external-deps
(cons (path->bytes ext-file)
external-deps)))])
(get-module-code path mode (current-managed-zo-compile)))]
(get-module-code path mode))]
[code-dir (get-code-dir mode path)])
(if (not (directory-exists? code-dir))
(make-directory code-dir))