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

diff --git a/core/effects/effects.factor b/core/effects/effects.factor
index d875b8e1d1f80ab951c6faa9ae4a67d3817602f7..c1288052b1c25ac114fe0a7b5067a15d7f646ffc 100644 (file)
--- 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 ;