diff --git a/extra/models/history/history.factor b/extra/models/history/history.factor index c5bd705144..ab79d66eb6 100755 --- a/extra/models/history/history.factor +++ b/extra/models/history/history.factor @@ -5,9 +5,9 @@ IN: models.history TUPLE: history < model back forward ; -: reset-history ( history -- ) +: reset-history ( history -- history ) V{ } clone >>back - V{ } clone >>forward ; + V{ } clone >>forward ; inline : ( value -- history ) history new-model