From: Matt Birkholz <puck@birchwood-abbey.net>
Date: Thu, 24 Jul 2014 21:59:28 +0000 (-0700)
Subject: Punt hack that slipped into the previous commit.
X-Git-Tag: mit-scheme-pucked-9.2.12~402^2~8
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=ddc3411f32c9bb0a4f1d62a49a7bbb7aa84d7b33;p=mit-scheme.git

Punt hack that slipped into the previous commit.
---

diff --git a/src/runtime/cpress.scm b/src/runtime/cpress.scm
index d1e9bf058..712ec8a8c 100644
--- a/src/runtime/cpress.scm
+++ b/src/runtime/cpress.scm
@@ -93,8 +93,6 @@ USA.
 	  (write-string "Compressed-B1-1.00" output)
 	  (compress-ports input output))))))
 
-(begin
-(declare (no-range-checks) (no-type-checks))
 (define-structure (compression-state
 		   (conc-name #f)
 		   (constructor make-compression-state
@@ -117,7 +115,7 @@ USA.
 
   output-buffer
   input-port
-  output-port))
+  output-port)
 
 (define (compress-ports input output)
   (let ((state (make-compression-state