stack-checker: adding 4dup and 4drop.
parent
09751634af
commit
909b28a360
|
@ -65,9 +65,11 @@ IN: stack-checker.known-words
|
|||
{ drop ( x -- ) }
|
||||
{ 2drop ( x y -- ) }
|
||||
{ 3drop ( x y z -- ) }
|
||||
{ 4drop ( w x y z -- ) }
|
||||
{ dup ( x -- x x ) }
|
||||
{ 2dup ( x y -- x y x y ) }
|
||||
{ 3dup ( x y z -- x y z x y z ) }
|
||||
{ 4dup ( w x y z -- w x y z w x y z ) }
|
||||
{ rot ( x y z -- y z x ) }
|
||||
{ -rot ( x y z -- z x y ) }
|
||||
{ dupd ( x y -- x x y ) }
|
||||
|
|
Loading…
Reference in New Issue