uncurl apostrophes

pull/13/head
Matthew Butterick 9 years ago
parent 81ebd198a7
commit 37f923be8d

@ -4,7 +4,7 @@
(require typed/sugar/define racket/set racket/sequence "len.rkt") ; want relative path-spec for bilingual conversion (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) (define-syntax-rule (make-coercion-error-handler target-format x)
(λ(e) (error (string->symbol (format "->~a" target-format)) (format "Cant 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)) (define-type Intable (U Number String Symbol Char Path Lengthable))

@ -16,4 +16,4 @@
[(hash? x) (len (hash-keys x))] [(hash? x) (len (hash-keys x))]
[(set? x) (len (set->list x))] [(set? x) (len (set->list x))]
[(and (sequence? x) (not (integer? x))) (len (sequence->list x))] [(and (sequence? x) (not (integer? x))) (len (sequence->list x))]
[else (error "len: cant calculate length of" x)])) [else (error "len: can't calculate length of" x)]))
Loading…
Cancel
Save