From 0b6099f5fa7e9309e142bc55020136b58cf8b166 Mon Sep 17 00:00:00 2001 From: Matthew Butterick Date: Sun, 8 Jan 2017 08:23:11 -0800 Subject: [PATCH] tiny correction --- pollen/unstable/typography.rkt | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/pollen/unstable/typography.rkt b/pollen/unstable/typography.rkt index e3c62da..bb54b5b 100644 --- a/pollen/unstable/typography.rkt +++ b/pollen/unstable/typography.rkt @@ -43,7 +43,7 @@ ;; 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 ;; 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))]) c)) (define offset 0)