From 37f923be8dab16d9d051196c15954a26c3389a63 Mon Sep 17 00:00:00 2001 From: Matthew Butterick Date: Fri, 28 Aug 2015 16:24:11 -0700 Subject: [PATCH] uncurl apostrophes --- typed/sugar/coerce.rkt | 2 +- typed/sugar/len.rkt | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/typed/sugar/coerce.rkt b/typed/sugar/coerce.rkt index 91bb74a..73e4b0d 100644 --- a/typed/sugar/coerce.rkt +++ b/typed/sugar/coerce.rkt @@ -4,7 +4,7 @@ (require typed/sugar/define racket/set racket/sequence "len.rkt") ; want relative path-spec for bilingual conversion (define-syntax-rule (make-coercion-error-handler target-format x) - (λ(e) (error (string->symbol (format "->~a" target-format)) (format "Can’t convert ~s to ~a" x target-format)))) + (λ(e) (error (string->symbol (format "->~a" target-format)) (format "Can't convert ~s to ~a" x target-format)))) (define-type Intable (U Number String Symbol Char Path Lengthable)) diff --git a/typed/sugar/len.rkt b/typed/sugar/len.rkt index 5f1794d..39dba1f 100644 --- a/typed/sugar/len.rkt +++ b/typed/sugar/len.rkt @@ -16,4 +16,4 @@ [(hash? x) (len (hash-keys x))] [(set? x) (len (set->list x))] [(and (sequence? x) (not (integer? x))) (len (sequence->list x))] - [else (error "len: can’t calculate length of" x)])) \ No newline at end of file + [else (error "len: can't calculate length of" x)])) \ No newline at end of file