diff --git a/pitfall/pitfall/afm-font.rkt b/pitfall/pitfall/afm-font.rkt index 6a832af5..e9f3fa4e 100644 --- a/pitfall/pitfall/afm-font.rkt +++ b/pitfall/pitfall/afm-font.rkt @@ -1,4 +1,6 @@ -#lang pitfall/racket +#lang at-exp racket/base +(require "racket.rkt") + (provide AFMFont AFMFont-open) (define AFMFont diff --git a/pitfall/pitfall/annotations.rkt b/pitfall/pitfall/annotations.rkt index 87013585..9fdfbfbe 100644 --- a/pitfall/pitfall/annotations.rkt +++ b/pitfall/pitfall/annotations.rkt @@ -1,4 +1,6 @@ -#lang pitfall/racket +#lang racket/base +(require "racket.rkt") + (provide annotation-mixin) (define (annotation-mixin [% mixin-tester%]) diff --git a/pitfall/pitfall/binprint.rkt b/pitfall/pitfall/binprint.rkt index c0e1b017..6c895be1 100644 --- a/pitfall/pitfall/binprint.rkt +++ b/pitfall/pitfall/binprint.rkt @@ -1,4 +1,6 @@ -#lang pitfall/racket +#lang racket/base +(require "racket.rkt") + (require sugar/list) (provide binprint) diff --git a/pitfall/pitfall/color.rkt b/pitfall/pitfall/color.rkt index 0b90911b..9ed5cc70 100644 --- a/pitfall/pitfall/color.rkt +++ b/pitfall/pitfall/color.rkt @@ -1,4 +1,6 @@ -#lang pitfall/racket +#lang racket/base +(require "racket.rkt") + (provide color-mixin) (define (color-mixin [% mixin-tester%]) diff --git a/pitfall/pitfall/document.rkt b/pitfall/pitfall/document.rkt index 450218e2..2040e94b 100644 --- a/pitfall/pitfall/document.rkt +++ b/pitfall/pitfall/document.rkt @@ -1,4 +1,6 @@ -#lang pitfall/racket +#lang at-exp racket/base +(require "racket.rkt") + (require "reference.rkt" "object.rkt" "page.rkt") (require "vector.rkt" "color.rkt" "fonts.rkt" "text.rkt" "images.rkt" "annotations.rkt") (provide PDFDocument) diff --git a/pitfall/pitfall/embedded.rkt b/pitfall/pitfall/embedded.rkt index 369ffe85..1d2b1a75 100644 --- a/pitfall/pitfall/embedded.rkt +++ b/pitfall/pitfall/embedded.rkt @@ -1,4 +1,6 @@ -#lang pitfall/racket +#lang racket/base +(require "racket.rkt") + (require "font.rkt" fontland "reference.rkt") (provide EmbeddedFont) diff --git a/pitfall/pitfall/font-open.rkt b/pitfall/pitfall/font-open.rkt index 2497b1cd..c6681bbf 100644 --- a/pitfall/pitfall/font-open.rkt +++ b/pitfall/pitfall/font-open.rkt @@ -1,4 +1,6 @@ -#lang pitfall/racket +#lang racket/base +(require "racket.rkt") + (require "standard-font.rkt" "font.rkt" fontland "embedded.rkt") (provide PDFFont-open) diff --git a/pitfall/pitfall/font.rkt b/pitfall/pitfall/font.rkt index ce9f6dd3..9d6db569 100644 --- a/pitfall/pitfall/font.rkt +++ b/pitfall/pitfall/font.rkt @@ -1,4 +1,6 @@ -#lang pitfall/racket +#lang racket/base +(require "racket.rkt") + (require "reference.rkt") (provide PDFFont) diff --git a/pitfall/pitfall/fonts.rkt b/pitfall/pitfall/fonts.rkt index 9bc72b49..91cd0428 100644 --- a/pitfall/pitfall/fonts.rkt +++ b/pitfall/pitfall/fonts.rkt @@ -1,4 +1,6 @@ -#lang pitfall/racket +#lang racket/base +(require "racket.rkt") + (require "font.rkt" "font-open.rkt") (provide fonts-mixin) diff --git a/pitfall/pitfall/image.rkt b/pitfall/pitfall/image.rkt index 4c17f42b..d72a55a2 100644 --- a/pitfall/pitfall/image.rkt +++ b/pitfall/pitfall/image.rkt @@ -1,4 +1,6 @@ -#lang pitfall/racket +#lang racket/base +(require "racket.rkt") + (require "jpeg.rkt" "png.rkt") (provide PDFImage-open) diff --git a/pitfall/pitfall/images.rkt b/pitfall/pitfall/images.rkt index 625e98e7..4f82a2c7 100644 --- a/pitfall/pitfall/images.rkt +++ b/pitfall/pitfall/images.rkt @@ -1,4 +1,6 @@ -#lang pitfall/racket +#lang racket/base +(require "racket.rkt") + (require "image.rkt") (provide image-mixin) diff --git a/pitfall/pitfall/jpeg.rkt b/pitfall/pitfall/jpeg.rkt index c02fbb2a..fc636532 100644 --- a/pitfall/pitfall/jpeg.rkt +++ b/pitfall/pitfall/jpeg.rkt @@ -1,4 +1,6 @@ -#lang pitfall/racket +#lang racket/base +(require "racket.rkt") + (provide JPEG) (define MARKERS '(#xffc0 #xffc1 #xffc2 #xffc3 #xffc5 #xffc6 #xffc7 diff --git a/pitfall/pitfall/main.rkt b/pitfall/pitfall/main.rkt index 7d3fd17c..f1825268 100644 --- a/pitfall/pitfall/main.rkt +++ b/pitfall/pitfall/main.rkt @@ -1,3 +1,5 @@ -#lang pitfall/racket +#lang racket/base +(require "racket.rkt") + (require "document.rkt") (provide (all-from-out "document.rkt")) \ No newline at end of file diff --git a/pitfall/pitfall/object.rkt b/pitfall/pitfall/object.rkt index 0e9d30ae..2d1b768a 100644 --- a/pitfall/pitfall/object.rkt +++ b/pitfall/pitfall/object.rkt @@ -1,5 +1,7 @@ -#lang pitfall/racket -(require srfi/19) +#lang racket/base +(require "racket.rkt") + +(require (only-in srfi/19 date->string)) (provide PDFObject convert) (define PDFObject diff --git a/pitfall/pitfall/page.rkt b/pitfall/pitfall/page.rkt index 0a5239d4..d261bdc6 100644 --- a/pitfall/pitfall/page.rkt +++ b/pitfall/pitfall/page.rkt @@ -1,4 +1,6 @@ -#lang pitfall/racket +#lang racket/base +(require "racket.rkt") + (provide PDFPage) (define PDFPage diff --git a/pitfall/pitfall/path.rkt b/pitfall/pitfall/path.rkt index b31873b9..ada30380 100644 --- a/pitfall/pitfall/path.rkt +++ b/pitfall/pitfall/path.rkt @@ -1,4 +1,6 @@ -#lang pitfall/racket +#lang racket/base +(require "racket.rkt") + (require brag/support sugar/list) (provide parse-svg-path) diff --git a/pitfall/pitfall/pdftest.rkt b/pitfall/pitfall/pdftest.rkt index 5d3316d9..41b940e1 100644 --- a/pitfall/pitfall/pdftest.rkt +++ b/pitfall/pitfall/pdftest.rkt @@ -1,5 +1,7 @@ -#lang pitfall/racket -(provide (all-from-out pitfall/racket)) +#lang racket/base +(require "racket.rkt") + +(provide (all-from-out "racket.rkt")) (provide check-copy-equal? check-pdfkit? make-doc) (test-mode #t) diff --git a/pitfall/pitfall/png-reader.rkt b/pitfall/pitfall/png-reader.rkt index 843b88f9..94261a77 100644 --- a/pitfall/pitfall/png-reader.rkt +++ b/pitfall/pitfall/png-reader.rkt @@ -1,4 +1,6 @@ -#lang pitfall/racket +#lang racket/base +(require "racket.rkt") + (require "zlib.rkt") (provide read-png decodePixels) diff --git a/pitfall/pitfall/png.rkt b/pitfall/pitfall/png.rkt index 0659a410..387ad91c 100644 --- a/pitfall/pitfall/png.rkt +++ b/pitfall/pitfall/png.rkt @@ -1,4 +1,6 @@ -#lang pitfall/racket +#lang racket/base +(require "racket.rkt") + (require "png-reader.rkt" "zlib.rkt") (provide PNG) diff --git a/pitfall/pitfall/reference.rkt b/pitfall/pitfall/reference.rkt index 568d45dc..75e8056a 100644 --- a/pitfall/pitfall/reference.rkt +++ b/pitfall/pitfall/reference.rkt @@ -1,4 +1,6 @@ -#lang pitfall/racket +#lang racket/base +(require "racket.rkt") + (require "object.rkt" "zlib.rkt") (provide PDFReference) diff --git a/pitfall/pitfall/standard-font.rkt b/pitfall/pitfall/standard-font.rkt index 2907a046..d30cf4be 100644 --- a/pitfall/pitfall/standard-font.rkt +++ b/pitfall/pitfall/standard-font.rkt @@ -1,4 +1,6 @@ -#lang pitfall/racket +#lang racket/base +(require "racket.rkt") + (require "afm-font.rkt" "font.rkt" fontland) (require racket/runtime-path) (provide isStandardFont standard-fonts StandardFont) diff --git a/pitfall/pitfall/text.rkt b/pitfall/pitfall/text.rkt index 9d256b89..ce63e7d6 100644 --- a/pitfall/pitfall/text.rkt +++ b/pitfall/pitfall/text.rkt @@ -1,4 +1,6 @@ -#lang pitfall/racket +#lang racket/base +(require "racket.rkt") + (require sugar/list racket/promise) (provide text-mixin) diff --git a/pitfall/pitfall/vector.rkt b/pitfall/pitfall/vector.rkt index 62aba42c..f3cee4e8 100644 --- a/pitfall/pitfall/vector.rkt +++ b/pitfall/pitfall/vector.rkt @@ -1,4 +1,6 @@ -#lang pitfall/racket +#lang racket/base +(require "racket.rkt") + (require "path.rkt") (provide vector-mixin default-ctm-value) diff --git a/pitfall/pitfall/zlib.rkt b/pitfall/pitfall/zlib.rkt index bdd74840..547a9902 100644 --- a/pitfall/pitfall/zlib.rkt +++ b/pitfall/pitfall/zlib.rkt @@ -1,4 +1,6 @@ -#lang pitfall/racket +#lang racket/base +(require "racket.rkt") + (provide deflate inflate) ;; see https://groups.google.com/d/topic/racket-users/3CvjHLAmwSQ/discussion diff --git a/pitfall/ptest/test0.rkt b/pitfall/ptest/test0.rkt index 76d7b431..623903d4 100644 --- a/pitfall/ptest/test0.rkt +++ b/pitfall/ptest/test0.rkt @@ -1,4 +1,5 @@ -#lang pitfall/pdftest +#lang racket/base +(require pitfall/pdftest) (define-runtime-path this "test0rkt.pdf") (make-doc this #f) diff --git a/pitfall/ptest/test09.rkt b/pitfall/ptest/test09.rkt index 8d23ffca..eadf4095 100644 --- a/pitfall/ptest/test09.rkt +++ b/pitfall/ptest/test09.rkt @@ -1,4 +1,5 @@ -#lang pitfall/pdftest +#lang racket/base +(require pitfall/pdftest) (define (proc doc) (send* doc diff --git a/pitfall/ptest/test1.rkt b/pitfall/ptest/test1.rkt index 3b3d4779..0eef3bed 100644 --- a/pitfall/ptest/test1.rkt +++ b/pitfall/ptest/test1.rkt @@ -1,4 +1,5 @@ -#lang pitfall/pdftest +#lang racket/base +(require pitfall/pdftest) (define (proc doc) ;; Draw a triangle and a circle diff --git a/pitfall/ptest/test10.rkt b/pitfall/ptest/test10.rkt index 02fc6465..3cc52ac2 100644 --- a/pitfall/ptest/test10.rkt +++ b/pitfall/ptest/test10.rkt @@ -1,4 +1,5 @@ -#lang pitfall/pdftest +#lang racket/base +(require pitfall/pdftest) (define-runtime-path tiger "assets/tiger.json") diff --git a/pitfall/ptest/test11.rkt b/pitfall/ptest/test11.rkt index 9f8f0b4e..340d1032 100644 --- a/pitfall/ptest/test11.rkt +++ b/pitfall/ptest/test11.rkt @@ -1,4 +1,5 @@ -#lang pitfall/pdftest +#lang racket/base +(require pitfall/pdftest) (define (proc doc) (send* doc diff --git a/pitfall/ptest/test12.rkt b/pitfall/ptest/test12.rkt index f27bdd98..32fc8117 100644 --- a/pitfall/ptest/test12.rkt +++ b/pitfall/ptest/test12.rkt @@ -1,4 +1,5 @@ - #lang pitfall/pdftest + #lang racket/base +(require pitfall/pdftest) (define-runtime-path charter-path "assets/charter.ttf") diff --git a/pitfall/ptest/test13.rkt b/pitfall/ptest/test13.rkt index 75e99472..7fa3a00d 100644 --- a/pitfall/ptest/test13.rkt +++ b/pitfall/ptest/test13.rkt @@ -1,4 +1,5 @@ -#lang pitfall/pdftest +#lang racket/base +(require pitfall/pdftest) (define-runtime-path charter-path "assets/charter.ttf") diff --git a/pitfall/ptest/test14.rkt b/pitfall/ptest/test14.rkt index f0afa049..64190a01 100644 --- a/pitfall/ptest/test14.rkt +++ b/pitfall/ptest/test14.rkt @@ -1,4 +1,5 @@ -#lang pitfall/pdftest +#lang racket/base +(require pitfall/pdftest) ;; subset font with GPOS table (define-runtime-path ttf-path "assets/fira.ttf") diff --git a/pitfall/ptest/test15.rkt b/pitfall/ptest/test15.rkt index 5452bd17..86559c59 100644 --- a/pitfall/ptest/test15.rkt +++ b/pitfall/ptest/test15.rkt @@ -1,4 +1,5 @@ -#lang pitfall/pdftest +#lang racket/base +(require pitfall/pdftest) ;; test kerning from GPOS diff --git a/pitfall/ptest/test16.rkt b/pitfall/ptest/test16.rkt index 30c299cb..8e39d3b0 100644 --- a/pitfall/ptest/test16.rkt +++ b/pitfall/ptest/test16.rkt @@ -1,4 +1,5 @@ -#lang pitfall/pdftest +#lang racket/base +(require pitfall/pdftest) ;; test ligatures (GSUB parsing + substitution) diff --git a/pitfall/ptest/test17.rkt b/pitfall/ptest/test17.rkt index b7fc30e3..989b1383 100644 --- a/pitfall/ptest/test17.rkt +++ b/pitfall/ptest/test17.rkt @@ -1,4 +1,5 @@ -#lang pitfall/pdftest +#lang racket/base +(require pitfall/pdftest) ;; test ligatures (multiple ligs in a line) diff --git a/pitfall/ptest/test18.rkt b/pitfall/ptest/test18.rkt index 74f78be5..4791d4a2 100644 --- a/pitfall/ptest/test18.rkt +++ b/pitfall/ptest/test18.rkt @@ -1,4 +1,5 @@ -#lang pitfall/pdftest +#lang racket/base +(require pitfall/pdftest) ;; multiple lines diff --git a/pitfall/ptest/test19.rkt b/pitfall/ptest/test19.rkt index 77552800..c80680f7 100644 --- a/pitfall/ptest/test19.rkt +++ b/pitfall/ptest/test19.rkt @@ -1,4 +1,5 @@ -#lang pitfall/pdftest +#lang racket/base +(require pitfall/pdftest) ;; subset font with GPOS table (define-runtime-path ttf-path "assets/fira.ttf") diff --git a/pitfall/ptest/test2.rkt b/pitfall/ptest/test2.rkt index b094e81e..7f1b478f 100644 --- a/pitfall/ptest/test2.rkt +++ b/pitfall/ptest/test2.rkt @@ -1,4 +1,5 @@ -#lang pitfall/pdftest +#lang racket/base +(require pitfall/pdftest) (define (proc doc) diff --git a/pitfall/ptest/test20.rkt b/pitfall/ptest/test20.rkt index d3c1aa74..0c0291ae 100644 --- a/pitfall/ptest/test20.rkt +++ b/pitfall/ptest/test20.rkt @@ -1,4 +1,5 @@ -#lang pitfall/pdftest +#lang racket/base +(require pitfall/pdftest) ;; subset OTF font (define-runtime-path otf-path "assets/charter.otf") diff --git a/pitfall/ptest/test3.rkt b/pitfall/ptest/test3.rkt index 2e155637..4b55d82d 100644 --- a/pitfall/ptest/test3.rkt +++ b/pitfall/ptest/test3.rkt @@ -1,4 +1,5 @@ -#lang pitfall/pdftest +#lang racket/base +(require pitfall/pdftest) (define (proc doc) (send doc text "Hello world")) diff --git a/pitfall/ptest/test4.rkt b/pitfall/ptest/test4.rkt index d0705565..1e119c63 100644 --- a/pitfall/ptest/test4.rkt +++ b/pitfall/ptest/test4.rkt @@ -1,4 +1,5 @@ -#lang pitfall/pdftest +#lang racket/base +(require pitfall/pdftest) (define (proc doc) (send* doc diff --git a/pitfall/ptest/test5.rkt b/pitfall/ptest/test5.rkt index 5158d96c..0802637b 100644 --- a/pitfall/ptest/test5.rkt +++ b/pitfall/ptest/test5.rkt @@ -1,4 +1,5 @@ -#lang pitfall/pdftest +#lang racket/base +(require pitfall/pdftest) (define-runtime-path death "assets/death.png") diff --git a/pitfall/ptest/test6.rkt b/pitfall/ptest/test6.rkt index 2605a402..b70101ae 100644 --- a/pitfall/ptest/test6.rkt +++ b/pitfall/ptest/test6.rkt @@ -1,4 +1,5 @@ -#lang pitfall/pdftest +#lang racket/base +(require pitfall/pdftest) (define (proc doc) (send* doc diff --git a/pitfall/ptest/test7.rkt b/pitfall/ptest/test7.rkt index 7b1748e9..ae2cbd49 100644 --- a/pitfall/ptest/test7.rkt +++ b/pitfall/ptest/test7.rkt @@ -1,4 +1,5 @@ -#lang pitfall/pdftest +#lang racket/base +(require pitfall/pdftest) (define-runtime-path test-jpeg "assets/test.jpeg") diff --git a/pitfall/ptest/test8.rkt b/pitfall/ptest/test8.rkt index 07eb2301..5c91d3d5 100644 --- a/pitfall/ptest/test8.rkt +++ b/pitfall/ptest/test8.rkt @@ -1,4 +1,5 @@ -#lang pitfall/pdftest +#lang racket/base +(require pitfall/pdftest) (define-runtime-path pic "assets/test.png")