combinators: fix typo

2010-02-02 02:40:28 +13:00 · 2010-02-02 02:40:28 +13:00 · 0b207caa87
parent 3e8d21b493
commit 0b207caa87
1 changed files with 1 additions and 1 deletions
--- a/core/combinators/combinators.factor
+++ b/core/combinators/combinators.factor
@ -31,7 +31,7 @@ SLOT: out
        [ dip ] dip
        dup in>> length swap out>> length
        check-datastack
-    ] 2dip
+    ] 2dip rot
    [ 2drop ] [ wrong-values ] if ;

 : execute-effect ( word effect -- )