From 909b28a36027c2e22f9ad986507d35fa46f603d9 Mon Sep 17 00:00:00 2001 From: John Benediktsson Date: Mon, 22 Oct 2012 12:27:15 -0700 Subject: [PATCH] stack-checker: adding 4dup and 4drop. --- .../known-words/known-words.factor | 32 ++++++++++--------- 1 file changed, 17 insertions(+), 15 deletions(-) diff --git a/basis/stack-checker/known-words/known-words.factor b/basis/stack-checker/known-words/known-words.factor index 6fbdd988cb..8d20062957 100644 --- a/basis/stack-checker/known-words/known-words.factor +++ b/basis/stack-checker/known-words/known-words.factor @@ -62,21 +62,23 @@ IN: stack-checker.known-words } cond ; { - { drop ( x -- ) } - { 2drop ( x y -- ) } - { 3drop ( x y z -- ) } - { dup ( x -- x x ) } - { 2dup ( x y -- x y x y ) } - { 3dup ( x y z -- x y z x y z ) } - { rot ( x y z -- y z x ) } - { -rot ( x y z -- z x y ) } - { dupd ( x y -- x x y ) } - { swapd ( x y z -- y x z ) } - { nip ( x y -- y ) } - { 2nip ( x y z -- z ) } - { over ( x y -- x y x ) } - { pick ( x y z -- x y z x ) } - { swap ( x y -- y x ) } + { 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 ) } + { swapd ( x y z -- y x z ) } + { nip ( x y -- y ) } + { 2nip ( x y z -- z ) } + { 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 : check-declaration ( declaration -- declaration )