Fix declaration
parent
de07ee1128
commit
f0420e8abb
|
@ -5,9 +5,9 @@ IN: models.history
|
||||||
|
|
||||||
TUPLE: history < model back forward ;
|
TUPLE: history < model back forward ;
|
||||||
|
|
||||||
: reset-history ( history -- )
|
: reset-history ( history -- history )
|
||||||
V{ } clone >>back
|
V{ } clone >>back
|
||||||
V{ } clone >>forward ;
|
V{ } clone >>forward ; inline
|
||||||
|
|
||||||
: <history> ( value -- history )
|
: <history> ( value -- history )
|
||||||
history new-model
|
history new-model
|
||||||
|
|
Loading…
Reference in New Issue