don't pass this

pitfall/pitfall/document.rkt

@@ -31,14 +31,11 @@
                                 'Pages (ref (mhasheq 'Type "Pages"))))]
            [(@x x) 0]
            [(@y y) 0]
+           ;; initialize the metadata
            [@info (mhasheq 'Producer "PITFALL"
                            'Creator "PITFALL"
-                           'CreationDate (seconds->date (if (test-mode)
-                                                            0
-                                                            (current-seconds)) #f))])  ; Initialize the metadata
+                           'CreationDate (seconds->date (if (test-mode) 0 (current-seconds)) #f))])
 
-    
-    
     ;; initialize mixins
     (send this initColor)
     (send this initVector)
@@ -60,7 +57,7 @@
     (define/public (page) (first @pages))
 
     (define/public (ref [payload (mhasheq)])
-      (define new-ref (make-object PDFReference this (@ref-gen) payload))
+      (define new-ref (make-object PDFReference (@ref-gen) payload))
       (set! @refs (cons new-ref @refs))
       new-ref)
 

pitfall/pitfall/reference.rkt

@@ -7,11 +7,11 @@
          "zlib.rkt")
 (provide PDFReference)
 
+
 (define PDFReference
   (class object%
     (super-new)
-    (init-field [(@doc document)]
-                [(@id id)]
+    (init-field [(@id id)]
                 [(@payload payload) (make-hasheq)])
     (field [(@offset offset) #f]
            [@port (open-output-bytes)])