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

.

Browse Source 
original commit: 8ac0479ef3908700c5c526bf636b5e652ba67b05
This commit is contained in:
Matthew Flatt 2004-08-07 20:12:48 +00:00
parent e08b6f7ea5
commit b82905f512
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
collects/mzlib/cm.ss
View File

@ -1,6 +1,7 @@
(module cm mzscheme
(require (lib "moddep.ss" "syntax")
(lib "plthome.ss" "setup"))
(lib "plthome.ss" "setup")
(lib "file.ss"))
(provide make-compilation-manager-load/use-compiled-handler
managed-compile-zo
@ -105,7 +106,7 @@
(get-module-code path mode))]
[code-dir (get-code-dir mode path)])
(if (not (directory-exists? code-dir))
(make-directory code-dir))
(make-directory* code-dir))
(let ((out (open-output-file zo-name 'replace)))
(with-handlers ((exn:fail?
(lambda (ex) (compilation-failure mode path zo-name #f (exn-message ex)))))