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

fix to string to fulfill contract on empty input

Browse Source
This commit is contained in:
John Clements 2011-05-26 14:50:24 -07:00
parent 2c470ee82a
commit 53cfbd27c1
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
collects/unstable/string.rkt
View File

@ -3,7 +3,10 @@
racket/serialize) racket/serialize)
(define (read/string str) (define (read/string str)
(read (open-input-string str))) (match (read (open-input-string str))
[(? eof-object? e) (raise-type-error 'read/string "nonempty string" str)]
[other other]))
;; Eli: Same comments as `read/bytes'. ;; Eli: Same comments as `read/bytes'.
(define (write/string v) (define (write/string v)