text-fits? ( len -- ? )

Vocabulary

prettyprint.sections

Inputs

len

an object

Outputs

?

an object

Definition

USING: accessors kernel math namespaces prettyprint.config ;

IN: prettyprint.sections

: text-fits? ( len -- ? )
    margin get
    [ drop t ] [ [ pprinter get indent>> + ] dip <= ] if-zero ;