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 -- ) } { drop ( x -- ) }
{ 2drop ( x y -- ) } { 2drop ( x y -- ) }
{ 3drop ( x y z -- ) } { 3drop ( x y z -- ) }
{ 4drop ( w x y z -- ) }
{ dup ( x -- x x ) } { dup ( x -- x x ) }
{ 2dup ( x y -- x y x y ) } { 2dup ( x y -- x y x y ) }
{ 3dup ( x y z -- x y z x y z ) } { 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 -- y z x ) }
{ -rot ( x y z -- z x y ) } { -rot ( x y z -- z x y ) }
{ dupd ( x y -- x x y ) } { dupd ( x y -- x x y ) }