suzanne.soy/racket
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
This commit is contained in:
Eli Barzilay 2008-08-19 00:13:43 +00:00
parent 64c655a516
commit a48366ce12
5 changed files with 3 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
collects/compiler/cm-accomplice.ss
View File

@ -1,5 +0,0 @@
#lang scheme/base
(require mzlib/cm-accomplice)
(provide (all-from-out mzlib/cm-accomplice))

5
collects/compiler/cm.ss
View File

@ -1,5 +0,0 @@
#lang scheme/base
(require mzlib/cm)
(provide (all-from-out mzlib/cm))

0
collects/mzlib/private/cm-ctime.ss → collects/compiler/private/cm-ctime.ss
View File

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

@ -12,7 +12,7 @@
(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)