diff --git a/quad/quadwriter/layout.rkt b/quad/quadwriter/layout.rkt index aad5e1a5..b70659b5 100644 --- a/quad/quadwriter/layout.rkt +++ b/quad/quadwriter/layout.rkt @@ -144,8 +144,8 @@ h)] [size #:parent quad (pt layout-width layout-height)])))) -(define (maybe-convert-line-break-quad q) - (and (line-break-quad? q) q)) +(define (maybe-convert-break-quad q) + (and (break-quad? q) q)) (define (do-string-quad q) ;; need to handle casing here so that it's reflected in subsequent sizing ops @@ -166,7 +166,7 @@ (define (generic->typed-quad q) (or - (maybe-convert-line-break-quad q) + (maybe-convert-break-quad q) (maybe-convert-draw-quad q) (maybe-convert-image-quad q) (do-string-quad q))) @@ -190,7 +190,9 @@ (restore doc))) -(define-quad line-break-quad quad) +(define-quad break-quad quad) + +(define-quad line-break-quad break-quad) (define q:line-break (make-line-break-quad #:printable #f #:id 'line-break)) (define-quad para-break-quad line-break-quad)