still working, albeit slowly

quad/logger-typed.rkt

@@ -1,6 +1,6 @@
-#lang typed/racket
+#lang typed/racket/base
 (require (for-syntax typed/racket/base))
-(require typed/racket/date "world-typed.rkt")
+(require typed/racket/date racket/match "world-typed.rkt")
 (provide (all-defined-out))
 
 (define-syntax-rule (define-orphan-logger name)

quad/main-typed-sample.rkt

@@ -11,8 +11,7 @@
 (parameterize ([world:quality-default world:draft-quality]
                [world:paper-width-default 600.0]
                [world:paper-height-default 700.0])
-  (define sample (ti3))
+  (define sample (ti5))
   ;  (define to (time (profile-thunk #:delay 0.001 (λ () (typeset sample)))))
   (define to (time (typeset sample)))
-  (report to)
   (time (send (new pdf-renderer%) render-to-file to "foo-typed.pdf")))