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

.

Browse Source 
original commit: 701ce6b9207edb0512bd7f849853e3d0de2d37e2
This commit is contained in:
Matthew Flatt 2003-07-14 17:46:06 +00:00
parent 4b9949c169
commit b0ae1d69f4
2 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -6,6 +6,9 @@
(complete-path? f))
(raise-type-error 'register-external-file "complete-path string" 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)
;; doesn't pollute the load:
(thread-wait
(thread (lambda ()
(set! param

4
collects/mzlib/cm.ss
View File

@ -77,8 +77,8 @@
(let ([param
;; Avoid using cm while loading cm-ctime:
(parameterize ([use-compiled-file-kinds 'none])
(dynamic-require-for-syntax '(lib "cm-ctime.ss" "mzlib" "private")
'current-external-file-registrar))]
(dynamic-require '(lib "cm-ctime.ss" "mzlib" "private")
'current-external-file-registrar))]
[external-deps null])
(let ((code (parameterize ([param (lambda (ext-file)
(set! external-deps (cons ext-file external-deps)))])