uncurl apostrophes

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))

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)]))
+    [else (error "len: can't calculate length of" x)]))