|
|
@ -145,11 +145,11 @@
|
|
|
|
(pt-y (size (car pcs)))))]))
|
|
|
|
(pt-y (size (car pcs)))))]))
|
|
|
|
(values (cons new-run runs) rest)))
|
|
|
|
(values (cons new-run runs) rest)))
|
|
|
|
|
|
|
|
|
|
|
|
(struct line-break quad ())
|
|
|
|
(define-quad line-break quad ())
|
|
|
|
(define lbr (q #:type line-break #:printable #f))
|
|
|
|
(define lbr (make-line-break #:printable #f))
|
|
|
|
;; treat paragraph break as special kind of line break
|
|
|
|
;; treat paragraph break as special kind of line break
|
|
|
|
(struct para-break line-break ())
|
|
|
|
(define-quad para-break line-break ())
|
|
|
|
(define pbr (q #:type para-break #:printable #f))
|
|
|
|
(define pbr (make-para-break #:printable #f))
|
|
|
|
|
|
|
|
|
|
|
|
(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")))))
|
|
|
|