experiment. ( seq -- )

Vocabulary

tools.test.private

Inputs

seq

an object

Outputs

None

Definition

USING: io kernel namespaces prettyprint sequences tools.test ;

IN: tools.test.private

: experiment. ( seq -- )
    [ first write ": " write ]
    [ rest verbose-tests? get [ . ] [ short. ] if flush ] bi ;