2014-12-30 20:56:00 -05:00
|
|
|
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 } } } [
|
|
|
|
|
{
|
2015-03-15 19:14:41 -04:00
|
|
|
${ height-state initial-height-state }
|
2014-12-30 20:56:00 -05:00
|
|
|
${ replace-mapping H{ } clone }
|
|
|
|
|
} [
|
|
|
|
|
{ 3 4 5 } ds-store replace-mapping get
|
|
|
|
|
] with-variables
|
|
|
|
|
] unit-test
|
