movement

pitfall/pitfall/document.rkt

@@ -1,6 +1,6 @@
 #lang pitfall/racket
 (require "reference.rkt" "object.rkt" "page.rkt")
-(require "mixins/vector.rkt" "mixins/color.rkt" "mixins/fonts.rkt" "mixins/text.rkt")
+(require "vector.rkt" "color.rkt" "fonts.rkt" "text.rkt")
 (provide PDFDocument)
 
 (define mixed% (text-mixin (fonts-mixin (color-mixin (vector-mixin object%)))))

pitfall/pitfall/font.rkt

@@ -1,5 +1,5 @@
 #lang pitfall/racket
-(require "font/standard-fonts.rkt" "font/afm.rkt" "reference.rkt")
+(require "standard-fonts.rkt" "afm.rkt" "reference.rkt")
 (provide PDFFont PDFFont-open)
 
 (define PDFFont

pitfall/pitfall/fonts.rkt

@@ -1,5 +1,5 @@
 #lang pitfall/racket
-(require "../font.rkt")
+(require "font.rkt")
 (provide fonts-mixin)
 
 (define (fonts-mixin [% mixin-tester%])
@@ -75,8 +75,7 @@
          [font (set-field! _font this font)]
          ;; save the font for reuse later
          [else
-          (when cacheKey
-            (hash-set! this-ff cacheKey this-f))
+          (when cacheKey (hash-set! this-ff cacheKey this-f))
           (hash-set! this-ff (· this-f name) this-f)]))
      this]))
 

pitfall/pitfall/vector.rkt

@@ -1,5 +1,5 @@
 #lang pitfall/racket
-(require "../path.rkt")
+(require "path.rkt")
 (provide vector-mixin default-ctm-value)
 
 (define (vector-mixin [% mixin-tester%])