effects: fix expected and got in bad-stack-effect (were backwards).

2014-06-06 11:16:43 -07:00 · 2014-06-06 11:16:43 -07:00 · 44c9735799
parent afcb610960
commit 44c9735799
1 changed files with 1 additions and 2 deletions
--- a/core/effects/effects.factor
+++ b/core/effects/effects.factor
@ -131,6 +131,5 @@ M: effect clone
 ERROR: bad-stack-effect word expected got ;

 : check-stack-effect ( word effect -- )
-    [ dup stack-effect ] dip
-    2dup effect=
+    over stack-effect 2dup effect=
    [ 3drop ] [ bad-stack-effect ] if ;