From 3387d8a75f1f02d4d4b4366e3a88db97c04c4a08 Mon Sep 17 00:00:00 2001
From: "Henry M. Wu" <edu/mit/csail/zurich/mhwu>
Date: Tue, 26 May 1992 17:40:49 +0000
Subject: [PATCH] Added compress.

---
 v7/src/runtime/option.scm  |  6 ++++--
 v7/src/runtime/runtime.pkg | 11 ++++++++++-
 v8/src/runtime/runtime.pkg | 11 ++++++++++-
 3 files changed, 24 insertions(+), 4 deletions(-)

diff --git a/v7/src/runtime/option.scm b/v7/src/runtime/option.scm
index bb7071296..000bba2d0 100644
--- a/v7/src/runtime/option.scm
+++ b/v7/src/runtime/option.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/option.scm,v 14.14 1992/04/06 19:52:47 bal Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/option.scm,v 14.15 1992/05/26 17:40:37 mhwu Exp $
 
 Copyright (c) 1988-92 Massachusetts Institute of Technology
 
@@ -74,7 +74,9 @@ MIT in each case. |#
     (FORMAT ((RUNTIME FORMAT) (INITIALIZE-PACKAGE!) "format"))
     (HASH-TABLE ((RUNTIME HASH-TABLE) (INITIALIZE-PACKAGE!) "hashtb"))
     (KRYPT ((RUNTIME KRYPT) #F "krypt"))
-    (SUBPROCESS ((RUNTIME SUBPROCESS) (INITIALIZE-PACKAGE!) "process"))))
+    (SUBPROCESS ((RUNTIME SUBPROCESS) (INITIALIZE-PACKAGE!) "process"))
+    (COMPRESS ((RUNTIME COMPRESS) (INITIALIZE-PACKAGE!) "cpress"))
+    ))
 
 (define loaded-options
   '())
diff --git a/v7/src/runtime/runtime.pkg b/v7/src/runtime/runtime.pkg
index d83ca9e28..d507786ce 100644
--- a/v7/src/runtime/runtime.pkg
+++ b/v7/src/runtime/runtime.pkg
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/runtime.pkg,v 14.150 1992/05/23 01:13:04 jinx Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/runtime.pkg,v 14.151 1992/05/26 17:40:49 mhwu Exp $
 
 Copyright (c) 1988-92 Massachusetts Institute of Technology
 
@@ -885,6 +885,15 @@ MIT in each case. |#
 	  encrypt
 	  decrypt))
 
+(define-package (runtime compress)
+  (file-case options
+    ((load) "cpress")
+    (else))
+  (parent ())
+  (export ()
+	  compress
+	  uncompress))
+
 (define-package (runtime port)
   (files "port")
   (parent ())
diff --git a/v8/src/runtime/runtime.pkg b/v8/src/runtime/runtime.pkg
index ec7f5c360..a2e870960 100644
--- a/v8/src/runtime/runtime.pkg
+++ b/v8/src/runtime/runtime.pkg
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/runtime/runtime.pkg,v 14.150 1992/05/23 01:13:04 jinx Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/runtime/runtime.pkg,v 14.151 1992/05/26 17:40:49 mhwu Exp $
 
 Copyright (c) 1988-92 Massachusetts Institute of Technology
 
@@ -885,6 +885,15 @@ MIT in each case. |#
 	  encrypt
 	  decrypt))
 
+(define-package (runtime compress)
+  (file-case options
+    ((load) "cpress")
+    (else))
+  (parent ())
+  (export ()
+	  compress
+	  uncompress))
+
 (define-package (runtime port)
   (files "port")
   (parent ())
-- 
2.25.1