effects: Fix check-stack-effect. Better to report the expected before the got.

diff --git a/core/effects/effects.factor b/core/effects/effects.factor
index c1288052b1c25ac114fe0a7b5067a15d7f646ffc..658029d8264bf567ff8233e1899f39df79d2e69c 100644 (file)
--- a/core/effects/effects.factor
+++ b/core/effects/effects.factor
@@ -132,4 +132,4 @@ ERROR: bad-stack-effect word expected got ;
 
 : check-stack-effect ( word effect -- )
     over stack-effect 2dup effect=
-    [ 3drop ] [ bad-stack-effect ] if ;
+    [ 3drop ] [ swap bad-stack-effect ] if ;