         CTLineCreateWithAttributedString
     ] with-destructors ;
 
-TUPLE: line < disposable line metrics image loc dim render-info ;
+TUPLE: line < disposable line metrics image loc dim rendered-line ;
 
-TUPLE: render-info font string loc dim ;
-C: <render-info> render-info
+TUPLE: rendered-line font string loc dim ;
+C: <rendered-line> rendered-line
 
 : typographic-bounds ( line -- width ascent descent leading )
     { CGFloat CGFloat CGFloat }


        line >>line

        font string loc dim <render-info> >>render-info

        metrics >>metrics



:: render ( line -- line image )
    line line>> :> ctline
    line rendered-line>> string>> :> string
    line rendered-line>> font>> :> font
    line rendered-line>> loc>> :> loc
    line rendered-line>> dim>> :> dim

    line dim [
        {
