<experiment> ( word -- quot )


Vocabulary
tools.test.private

Inputs
wordan object


Outputs
quotan object


Definition
USING: accessors effects generalizations kernel sequences
sequences.generalizations ;

IN: tools.test.private

MACRO: <experiment> ( word -- quot )
[ stack-effect in>> length dup ] [ name>> experiment-title ]
bi '[ _ ndup _ narray _ prefix ] ;