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

.

Browse Source 
original commit: 230ea85b0fd2177effb3cf27d1bb872a78c05f2a
This commit is contained in:
Matthew Flatt 2003-07-14 17:44:55 +00:00
parent a7ddeff6e8
commit 4b9949c169
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -5,8 +5,12 @@
(unless (and (string? f)
(complete-path? f))
(raise-type-error 'register-external-file "complete-path string" f))
(let ([param (dynamic-require-for-syntax '(lib "cm-ctime.ss" "mzlib" "private")
'current-external-file-registrar)])
(let ([param (lambda () void)])
(thread-wait
(thread (lambda ()
(set! param
(dynamic-require '(lib "cm-ctime.ss" "mzlib" "private")
'current-external-file-registrar)))))
((param) f))))