From a86c7ab6c1fa69744c0ff26dc717a20cebd1ddde Mon Sep 17 00:00:00 2001 From: Matthew Butterick Date: Fri, 31 Mar 2017 13:11:21 -0700 Subject: [PATCH] oho --- pitfall/pitfall/parse.rkt | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/pitfall/pitfall/parse.rkt b/pitfall/pitfall/parse.rkt index 94faa0df..fcbdefee 100644 --- a/pitfall/pitfall/parse.rkt +++ b/pitfall/pitfall/parse.rkt @@ -7,8 +7,8 @@ (module+ reader (provide read-syntax)) (define (read-syntax src port) - ;; use latin-1 reencoding to make one char = one byte - (define parse-tree (parse (make-tokenizer (open-input-string (bytes->string/latin-1 (port->bytes port))) src))) + ;; use latin-1 reencoding to make one char = one byte (note `latin1` respelling is correct) + (define parse-tree (parse (make-tokenizer (reencode-input-port port "latin1") src))) (strip-bindings #`(module pitfall-parse-mod pitfall/parse #,parse-tree)))