picture ( uses -- str )

Vocabulary

compiler.cfg.linear-scan.debugger

Inputs

uses

an object

Outputs

str

an object

Definition

USING: kernel math sequences strings ;

IN: compiler.cfg.linear-scan.debugger

: picture ( uses -- str )
    dup last 1 + 32 <string>
    [ [ [ 42 swap ] ] dip [ set-nth ] curry compose each ] keep
    ;