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

oops, no match available here

Browse Source
This commit is contained in:
John Clements 2011-05-26 17:46:05 -07:00
parent 53cfbd27c1
commit 10cb0e61e2
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
collects/unstable/string.rkt
View File

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