diff --git a/pitfall/pitfall/document.rkt b/pitfall/pitfall/document.rkt index 52a8ef8a..8d424cab 100644 --- a/pitfall/pitfall/document.rkt +++ b/pitfall/pitfall/document.rkt @@ -28,10 +28,9 @@ (field [@pages null]) (define/public (page) (first @pages)) (define/public (add-content data) - (page-write (first @pages) data) - this)))))))) + (page-write (first @pages) data))))))))) (set-current-ref-id! 1) - (register-ref-listener (λ (ref) (send this store-ref ref))) + (register-ref-listener (λ (ref) (store-ref ref))) (super-new) (init-field [(@options options) (mhasheq)]) @@ -41,7 +40,7 @@ ;; initialize the metadata [@info (mhasheq 'Producer "PITFALL" 'Creator "PITFALL" - 'CreationDate (seconds->date (if (test-mode) 0 (current-seconds)) #f))]) + 'CreationDate (current-seconds))]) ;; initialize mixins (inherit-field @ctm) ; from vector mixin