From 10cb0e61e2627a6f9958b88081378c4eb6e93c33 Mon Sep 17 00:00:00 2001 From: John Clements Date: Thu, 26 May 2011 17:46:05 -0700 Subject: [PATCH] oops, no match available here --- collects/unstable/string.rkt | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/collects/unstable/string.rkt b/collects/unstable/string.rkt index 303fa0e753..870653657c 100644 --- a/collects/unstable/string.rkt +++ b/collects/unstable/string.rkt @@ -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'.