profiling

quad/main-typed-sample.rkt

@@ -1,8 +1,8 @@
 #lang typed/racket/base
-(require "main-typed.rkt" "logger-typed.rkt" "world-typed.rkt" "samples-typed.rkt")
+(require "main-typed.rkt" "logger-typed.rkt" "world-typed.rkt" "samples-typed.rkt" "quads-typed.rkt")
 
-#;(require/typed contract-profile
+(require/typed profile
-                [contract-profile-thunk ((-> Any) . -> . Quad)])
+                [profile-thunk ((-> Any) [#:delay Float]  . -> . Quad)])
 
 (require "render-typed.rkt" typed/racket/class)
 (activate-logger quad-logger)
@@ -11,5 +11,5 @@
                [world:paper-width-default 600.0]
                [world:paper-height-default 700.0])
   (define sample (ti5))
-  (define to (time (typeset sample)))
+  (define to (time (profile-thunk #:delay 0.001 (λ () (typeset sample)))))
   (time (send (new pdf-renderer%) render-to-file to "foo-typed.pdf")))