compiler/base/crsend.scm: Use a compiled compress procedure ASAP.

The interpreted compress is terribly slow.

diff --git a/src/compiler/base/crsend.scm b/src/compiler/base/crsend.scm
index 22734ac5086ee24bc026c0e3e226bfa2aaab99db..9f71b3655ad27e3aa8e5208cc80074353574d4f5 100644 (file)
--- a/src/compiler/base/crsend.scm
+++ b/src/compiler/base/crsend.scm
@@ -32,8 +32,6 @@ USA.
 ;;; compiler.
 
 (declare (usual-integrations))
-
-(load-option 'COMPRESS)                        ; XXX ugh
 \f
 (define (finish-cross-compilation:directory directory #!optional force?)
   (let ((force? (if (default-object? force?) #f force?)))
@@ -221,4 +219,9 @@ USA.
   (sc-macro-transformer
    (lambda (form environment)
      environment
-     (apply microcode-type (cdr form)))))
\ No newline at end of file
+     (apply microcode-type (cdr form)))))
+
+;;(load-option 'COMPRESS)                      ; XXX ugh
+;; The interpreted compress is terribly slow.
+(finish-cross-compilation:file "cpress.moc")
+(load "cpress.com" (->environment '(runtime compress)))
\ No newline at end of file