Punt hack that slipped into the previous commit.

diff --git a/src/runtime/cpress.scm b/src/runtime/cpress.scm
index d1e9bf058c34ab51dfd2600331150af94f15abd8..712ec8a8c63d7cb52ef53748e8a348cc71db9bf8 100644 (file)
--- 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