From 43aceea3ee9303f2f7da261fc390ec383e68a527 Mon Sep 17 00:00:00 2001 From: Matthew Butterick Date: Thu, 24 Jul 2014 12:21:00 -0700 Subject: [PATCH] update use of 'get' --- decode.rkt | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/decode.rkt b/decode.rkt index c958310..e61a9ed 100644 --- a/decode.rkt +++ b/decode.rkt @@ -187,7 +187,7 @@ (let ([new-car-elements (match (car elements) [(? two-or-more-char-string? tcs) (define str-first (get tcs 0)) - (define str-rest (get tcs 1 'end)) + (define str-rest (get tcs 1 (len tcs))) (cond [(str-first . in? . '("\"" "“")) ;; can wrap with any inline tag