You cannot select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
11 lines
275 B
Racket
11 lines
275 B
Racket
5 years ago
|
#lang debug racket
|
||
|
|
(require "struct.rkt"
|
||
|
|
quad/quad
|
||
|
|
pitfall)
|
||
|
|
(provide (all-defined-out))
|
||
|
|
|
||
|
|
(define q:doc (make-quad
|
||
|
|
#:type doc-quad
|
||
|
|
#:draw-start (λ (q doc) (start-doc doc))
|
||
|
|
#:draw-end (λ (q doc) (end-doc doc))))
|