Added compress.

diff --git a/v7/src/runtime/option.scm b/v7/src/runtime/option.scm
index bb70712960eeb2c1edf272c8094e6c8cdcd6c95c..000bba2d0c314a0fa8577470202048c72bbf7e6d 100644 (file)
--- 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 d83ca9e286db48a66d74ff681a49d2e38a5c6ea0..d507786ce503dae9bc4e5b0c257bbf885acf0a2e 100644 (file)
--- 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 ec7f5c3602bf4b056a9f3799104baafd90e23fa0..a2e8709608ebd82ea45e73ecb7c7a56a8dbd66d1 100644 (file)
--- 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 ())