From 44c9735799431e2c1b55bdfcc0ed60fc69be8216 Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Fri, 6 Jun 2014 11:16:43 -0700
Subject: [PATCH] effects: fix expected and got in bad-stack-effect (were
 backwards).

---
 core/effects/effects.factor | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/core/effects/effects.factor b/core/effects/effects.factor
index d875b8e1d1..c1288052b1 100644
--- 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 ;