typesetting/pitfall/ptest/test3.rkt

#lang pitfall/pdftest

(define (proc doc)
  (send doc text "Hello world"))

(define-runtime-path this "test3rkt.pdf")
(make-doc this #f proc)

(define-runtime-path that "test3crkt.pdf")
(make-doc that #t proc)
start test3 7 years ago			`#lang pitfall/pdftest`
consolidate test files 7 years ago
			`(define (proc doc)`
			`(send doc text "Hello world"))`

start test3 7 years ago			`(define-runtime-path this "test3rkt.pdf")`
consolidate test files 7 years ago			`(make-doc this #f proc)`
start test3 7 years ago
consolidate test files 7 years ago			`(define-runtime-path that "test3crkt.pdf")`
			`(make-doc that #t proc)`
start test3 7 years ago