13 lines
382 B
Factor
13 lines
382 B
Factor
USING: accessors arrays assocs combinators compiler.cfg.registers
|
|
compiler.cfg.stacks.local kernel literals namespaces tools.test ;
|
|
IN: compiler.cfg.stacks
|
|
|
|
{ H{ { D -2 4 } { D -1 3 } { D -3 5 } } } [
|
|
{
|
|
${ height-state initial-height-state }
|
|
${ replace-mapping H{ } clone }
|
|
} [
|
|
{ 3 4 5 } ds-store replace-mapping get
|
|
] with-variables
|
|
] unit-test
|