more

pitfall/pitfall/embedded-font.rkt

@@ -84,7 +84,7 @@ https://github.com/mbutterick/pdfkit/blob/master/lib/font/embedded.coffee
 
           (scale-glyph-position! posn scale)
           (values subset-idx posn)))
-      (list subset-idxs new-positions))
+      (list (list->vector subset-idxs) (list->vector new-positions)))
 
 
     (define/override (embed)

pitfall/pitfall/standard-font.rkt

@@ -63,14 +63,13 @@
       (hash-ref @kern-pairs (make-kern-table-key left right) 0))
 
     (define/override (encode text [options #f])
-      (define encoded (for/list ([c (in-string text)])
+      (define encoded (for/vector ([c (in-string text)])
                         (define cint (char->integer c))
                         (number->string (hash-ref win-ansi-table cint cint) 16)))
       (define glyphs (glyphs-for-string text))
-      (define positions
-        (for/list ([glyph (in-list glyphs)]
-                   [advance (in-list (advances-for-glyphs glyphs))])
-          (+glyph-position advance 0 0 0 (glyph-width glyph)))) 
+      (define positions (for/vector ([glyph (in-list glyphs)]
+                                     [advance (in-list (advances-for-glyphs glyphs))])
+                          (+glyph-position advance 0 0 0 (glyph-width glyph)))) 
       (list encoded positions))
 
     (define/override (string-width str size [options #f])

pitfall/pitfall/text.rkt

@@ -84,7 +84,7 @@ https://github.com/mbutterick/pdfkit/blob/master/lib/mixins/text.coffee
   ;; 180321: the first call to this operation is very slow from Quad
   ;; 181126: because `encode` calls `layout`
   (match-define (list encoded-char-strs positions)
-    (map list->vector (send ($doc-current-font doc) encode text (hash-ref options 'features #f))))
+    (send ($doc-current-font doc) encode text (hash-ref options 'features #f)))
   
   (define scale (/ ($doc-current-font-size doc) 1000.0))
   (define commands empty)