suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

file/gzip: remove use of `unit200'

Browse Source 
The unit was just there to create an instantiable local definition
context. In modern Racket, a function body does the same job.
This commit is contained in:
Matthew Flatt 2013-07-10 08:45:26 -06:00
parent 85899c7236
commit a6e25f0bae
1 changed files with 6 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
racket/lib/collects/file/gzip.rkt
View File

@ -16,7 +16,7 @@
(provide deflate gzip-through-ports gzip)
(require mzlib/unit200 (for-syntax racket/base))
(require (for-syntax racket/base))
(define (vector-ref* v i)
(let ([r (vector-ref v i)])
@ -197,11 +197,7 @@
;; multiply invoked), so we pack it up into a unit to
;; invoke each time we need it.
(define code
(unit
(import)
(export)
(define (code)
;; /* ===========================================================================
;; * Local data used by the "longest match" routines.
@ -2227,17 +2223,17 @@
(lambda () (close-output-port o)))))
(lambda () (close-input-port i)))))
(list gzip gzip-through-ports deflate)))
(list gzip gzip-through-ports deflate))
(define gzip
(case-lambda
[(infile) (gzip infile (string-append infile ".gz"))]
[(infile outfile) ((car (invoke-unit code)) infile outfile)]))
[(infile outfile) ((car (code)) infile outfile)]))
(define (gzip-through-ports in out origname time_stamp)
((cadr (invoke-unit code)) in out origname time_stamp))
((cadr (code)) in out origname time_stamp))
(define (deflate in out)
((caddr (invoke-unit code)) in out))
((caddr (code)) in out))
)