steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

32
basis/stack-checker/known-words/known-words.factor
View File

@ -62,21 +62,23 @@ IN: stack-checker.known-words
} cond ; } cond ;
{ {
{ drop ( x -- ) } { drop ( x -- ) }
{ 2drop ( x y -- ) } { 2drop ( x y -- ) }
{ 3drop ( x y z -- ) } { 3drop ( x y z -- ) }
{ dup ( x -- x x ) } { 4drop ( w x y z -- ) }
{ 2dup ( x y -- x y x y ) } { dup ( x -- x x ) }
{ 3dup ( x y z -- x y z x y z ) } { 2dup ( x y -- x y x y ) }
{ rot ( x y z -- y z x ) } { 3dup ( x y z -- x y z x y z ) }
{ -rot ( x y z -- z x y ) } { 4dup ( w x y z -- w x y z w x y z ) }
{ dupd ( x y -- x x y ) } { rot ( x y z -- y z x ) }
{ swapd ( x y z -- y x z ) } { -rot ( x y z -- z x y ) }
{ nip ( x y -- y ) } { dupd ( x y -- x x y ) }
{ 2nip ( x y z -- z ) } { swapd ( x y z -- y x z ) }
{ over ( x y -- x y x ) } { nip ( x y -- y ) }
{ pick ( x y z -- x y z x ) } { 2nip ( x y z -- z ) }
{ swap ( x y -- y x ) } { over ( x y -- x y x ) }
{ pick ( x y z -- x y z x ) }
{ swap ( x y -- y x ) }
} [ "shuffle" set-word-prop ] assoc-each } [ "shuffle" set-word-prop ] assoc-each
: check-declaration ( declaration -- declaration ) : check-declaration ( declaration -- declaration )