combinators: fix typo

2010-02-02 02:40:28 +13:00 · 2010-02-02 02:40:28 +13:00 · cf37a74316
parent 6e65bc10f4
commit cf37a74316
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 -- )