tiny correction

pull/139/head
Matthew Butterick 8 years ago
parent 897c32ef8d
commit 0b6099f5fa

@ -43,7 +43,7 @@
;; convert the quotes as if the txexpr were a flat string, to get proximity right ;; convert the quotes as if the txexpr were a flat string, to get proximity right
;; then replace the actual strings with substrings from this converted result ;; then replace the actual strings with substrings from this converted result
;; todo: handle entities & chars correctly, for now they are ignored ;; todo: handle entities & chars correctly, for now they are ignored
(define flat-str (string-append* (filter string? (flatten (map remove-attrs x))))) (define flat-str (string-append* (filter string? (flatten (remove-attrs x)))))
(define char-vec (for/vector ([c (in-string (smart-quotes flat-str))]) (define char-vec (for/vector ([c (in-string (smart-quotes flat-str))])
c)) c))
(define offset 0) (define offset 0)

Loading…
Cancel
Save