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

move cm-ctime to compiler/private, move away compiler/cm and compiler/cm-accomplice stubs

Browse Source 
svn: r11312

original commit: a48366ce12ca03161c2a4f4060d8eb24c93bef5d
This commit is contained in:
Eli Barzilay 2008-08-19 00:13:43 +00:00
parent fe4b75e598
commit e1b0d9810d
2 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -9,10 +9,10 @@
;; Load the code in a separate thread, so that the dynamic ;; Load the code in a separate thread, so that the dynamic
;; extent of this one (likely a phase-sensitive macro expansion) ;; extent of this one (likely a phase-sensitive macro expansion)
;; doesn't pollute the load: ;; doesn't pollute the load:
(thread-wait (thread-wait
(thread (lambda () (thread (lambda ()
(set! param (set! param
(dynamic-require 'mzlib/private/cm-ctime (dynamic-require 'compiler/private/cm-ctime
'current-external-file-registrar))))) 'current-external-file-registrar)))))
((param) f)))) ((param) f))))

2
collects/mzlib/cm.ss
View File

@ -114,7 +114,7 @@
(define param (define param
;; Avoid using cm while loading cm-ctime: ;; Avoid using cm while loading cm-ctime:
(parameterize ([use-compiled-file-paths null]) (parameterize ([use-compiled-file-paths null])
(dynamic-require 'mzlib/private/cm-ctime (dynamic-require 'compiler/private/cm-ctime
'current-external-file-registrar))) 'current-external-file-registrar)))
(define external-deps null) (define external-deps null)
(define (external-dep! p) (define (external-dep! p)