         CTLineCreateWithAttributedString
     ] with-destructors ;
 
-TUPLE: line font line metrics image loc dim disposed ;
+TUPLE: line line metrics image loc dim disposed ;
 
 : typographic-bounds ( line -- width ascent descent leading )
     0 <CGFloat> 0 <CGFloat> 0 <CGFloat>

                ext [ (loc) (dim) [ + ceiling ] 2map ]
                dim [ ext loc [ - >integer ] 2map ]
                metrics [ open-font line compute-line-metrics ] |
            open-font line metrics
            dim [
                {
                    [ font dim fill-background ]


:: <line> ( font string -- line )
    [
        [let* | open-font [ font cache-font ]
                line [ string open-font font foreground>> <CTLine> |CFRelease ]

                rect [ line line-rect ]
