From: Matt Birkholz <matt@birchwood-abbey.net>
Date: Sat, 4 Feb 2017 00:13:49 +0000 (-0700)
Subject: compiler/base/crsend.scm: Use a compiled compress procedure ASAP.
X-Git-Tag: mit-scheme-pucked-9.2.12~227^2~2
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=0ee3b64;p=mit-scheme.git

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 22734ac50..9f71b3655 100644
--- 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
 
 (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