M: p pdf-width
[ style>> set-style ] keep
- [ font>> ] [ string>> ] bi* string-lines
+ [ font>> ] [ string>> ] bi* lines
[ dupd text-width ] map nip supremum ;
M: text pdf-width
[ style>> set-style ] keep
- [ font>> ] [ string>> ] bi* string-lines
+ [ font>> ] [ string>> ] bi* lines
[ dupd text-width ] map nip supremum ;