From 0ee3b64cf3e34f1d94f58cb14dfb759f7561829d Mon Sep 17 00:00:00 2001 From: Matt Birkholz Date: Fri, 3 Feb 2017 17:13:49 -0700 Subject: [PATCH] compiler/base/crsend.scm: Use a compiled compress procedure ASAP. The interpreted compress is terribly slow. --- src/compiler/base/crsend.scm | 9 ++++++--- 1 file changed, 6 insertions(+), 3 deletions(-) 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 -- 2.25.1