models.range: Correct stack effect for '<range>'
parent
c178718bb3
commit
8acd9c6814
|
|
@ -6,7 +6,7 @@ IN: models.range
|
||||||
|
|
||||||
TUPLE: range < compose ;
|
TUPLE: range < compose ;
|
||||||
|
|
||||||
: <range> ( value min max page -- range )
|
: <range> ( value page min max -- range )
|
||||||
4array [ <model> ] map range new-compose ;
|
4array [ <model> ] map range new-compose ;
|
||||||
|
|
||||||
: range-model ( range -- model ) dependencies>> first ;
|
: range-model ( range -- model ) dependencies>> first ;
|
||||||
|
|
|
||||||
Loading…
Reference in New Issue