stack-checker: adding 4dup and 4drop.

db4
John Benediktsson 2012-10-22 12:27:15 -07:00
parent 09751634af
commit 909b28a360
1 changed files with 17 additions and 15 deletions

View File

@ -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 ) }