From: Henry M. Wu <edu/mit/csail/zurich/mhwu>
Date: Tue, 26 May 1992 17:51:50 +0000 (+0000)
Subject: *** empty log message ***
X-Git-Tag: 20090517-FFI~9365
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=ff6995d61186a3a03db9408937dcdcc5b1785870;p=mit-scheme.git

*** empty log message ***
---

diff --git a/v7/src/runtime/cpress.scm b/v7/src/runtime/cpress.scm
index 942b3e521..601dd6e9d 100644
--- a/v7/src/runtime/cpress.scm
+++ b/v7/src/runtime/cpress.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/cpress.scm,v 1.1 1992/05/26 17:45:49 mhwu Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/cpress.scm,v 1.2 1992/05/26 17:51:50 mhwu Exp $
 
 Copyright (c) 1992 Massachusetts Institute of Technology
 
@@ -756,14 +756,8 @@ MIT in each case. |#
 	(output-port/write-substring output-port (cdr ob) 0 (car ob))))
   (output-port/flush-output output-port))
 
-(define uncompress)
-
-(define (initialize-package!)
-  (set! uncompress
-	(lambda (ifile ofile)
-	  ((access uncompress-internal
-		   (->environment '(runtime compiler-info)))
-	   ifile ofile
-	   (lambda (message . irritants)
-	     (error message irritants)))))
+(define (uncompress ifile ofile)
+  (uncompress-internal ifile ofile
+    (lambda (message . irritants)
+      (error message irritants)))
   unspecific)