test 4 complete

pitfall/pitfall/alltest.rkt

@@ -4,4 +4,5 @@
            pitfall/test/test1
            pitfall/test/test2
            pitfall/test/test3
+           pitfall/test/test4
            pitfall/page-test))

pitfall/pitfall/font.rkt

@@ -84,7 +84,7 @@
   (define glyphs (send this-font glyphsForString str))
   (define advances (send this-font advancesForGlyphs glyphs))
   (define width (apply + advances))
-  (define scale (/ size 1000))
+  (define scale (/ size 1000.0))
   (* width scale))