Matthew Butterick 6 years ago
parent dc898971b0
commit f1112b09fe

@ -153,8 +153,7 @@
[elems #:parent quad es])) [elems #:parent quad es]))
(define lbr (q #:type line-break (define lbr (q #:type line-break
#:copier line-break-copy #:copier line-break-copy
#:printable #f #:printable #f))
#:elems '("foo bar")))
(struct para-break line-break () #:transparent) (struct para-break line-break () #:transparent)
(define (para-break-copy x as es) (define (para-break-copy x as es)
(struct-copy para-break x (struct-copy para-break x
@ -162,8 +161,7 @@
[elems #:parent quad es])) [elems #:parent quad es]))
(define pbr (q #:type para-break (define pbr (q #:type para-break
#:copier para-break-copy #:copier para-break-copy
#:printable #f #:printable #f))
#:elems '("¶¶")))
(module+ test (module+ test
(check-true (line-break? (second (quad-elems (q "foo" pbr "bar"))))) (check-true (line-break? (second (quad-elems (q "foo" pbr "bar")))))

Loading…
Cancel
Save