wtf

pitfall/pitfall/document.rkt

@@ -88,7 +88,7 @@
       (send doc-info end)
     
       (for ([font (in-hash-values @font-families)])
-        (send font finalize))
+        (send font end))
 
       (send* (dict-ref @root 'Pages)
         [set-key! 'Count (length @pages)]

pitfall/pitfall/font.rkt

@@ -19,7 +19,7 @@
         (set! @dictionary (make-ref)))
       @dictionary)
 
-    (define/public (finalize)
+    (define/public (end)
       (unless (or @embedded (not @dictionary))
         (embed)
         (set! @embedded #t)))