From 1979addf8fe8c950fae99cc3092ea764cccaa277 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Tue, 27 Apr 2004 16:53:55 +0000 Subject: [PATCH] . original commit: 91bb4b4a96fb471fd79a3e48c2d7b12763fcd18e --- collects/mzlib/cm-accomplice.ss | 2 +- collects/mzlib/cm.ss | 5 +---- 2 files changed, 2 insertions(+), 5 deletions(-) diff --git a/collects/mzlib/cm-accomplice.ss b/collects/mzlib/cm-accomplice.ss index 14457f0..e58b4b6 100644 --- a/collects/mzlib/cm-accomplice.ss +++ b/collects/mzlib/cm-accomplice.ss @@ -7,7 +7,7 @@ (raise-type-error 'register-external-file "complete path" 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) + ;; extent of this one (likely a phase-sensitive macro expansion) ;; doesn't pollute the load: (thread-wait (thread (lambda () diff --git a/collects/mzlib/cm.ss b/collects/mzlib/cm.ss index dd65523..29e3a92 100644 --- a/collects/mzlib/cm.ss +++ b/collects/mzlib/cm.ss @@ -4,7 +4,6 @@ (provide make-compilation-manager-load/use-compiled-handler managed-compile-zo - current-managed-zo-compile make-caching-managed-compile-zo trust-existing-zos manager-compile-notify-handler @@ -15,8 +14,6 @@ (define indent (make-parameter "")) (define trust-existing-zos (make-parameter #f)) - (define current-managed-zo-compile (make-parameter compile)) - (define my-max (case-lambda (() 0) @@ -103,7 +100,7 @@ (set! external-deps (cons (path->bytes ext-file) external-deps)))]) - (get-module-code path mode (current-managed-zo-compile)))] + (get-module-code path mode))] [code-dir (get-code-dir mode path)]) (if (not (directory-exists? code-dir)) (make-directory code-dir))