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

file/zip: recognize string ports as seekable

Browse Source
This commit is contained in:
Matthew Flatt 2014-04-27 10:13:27 -06:00
parent 64bfb58dad
commit da600ad291
1 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
racket/collects/file/zip.rkt
View File

@ -72,10 +72,11 @@
;; seekable-port? : port -> boolean ;; seekable-port? : port -> boolean
(define (seekable-port? port) (define (seekable-port? port)
(and (file-stream-port? port) (or (string-port? port)
(with-handlers ([void (lambda (exn) #f)]) (and (file-stream-port? port)
(file-position port (file-position port)) (with-handlers ([void (lambda (exn) #f)])
#t))) (file-position port (file-position port))
#t))))
(define (write-int n size) (define (write-int n size)
(write-bytes (integer->integer-bytes n size #f #f))) (write-bytes (integer->integer-bytes n size #f #f)))