From 1ad06b4e4416b9454e0a9566112dd3418e1bdabe Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Wed, 13 Apr 2016 13:16:59 -0700
Subject: [PATCH] effects: swap got expected.

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

diff --git a/core/effects/effects.factor b/core/effects/effects.factor
index 658029d826..8765e90415 100644
--- a/core/effects/effects.factor
+++ b/core/effects/effects.factor
@@ -128,8 +128,8 @@ M: effect clone
     pick 0 = [ [ 1 + ] dip ] [ [ 1 - ] 2dip ] if
     [ [ "x" <array> ] bi@ ] dip <terminated-effect> ;
 
-ERROR: bad-stack-effect word expected got ;
+ERROR: bad-stack-effect word got expected ;
 
 : check-stack-effect ( word effect -- )
     over stack-effect 2dup effect=
-    [ 3drop ] [ swap bad-stack-effect ] if ;
+    [ 3drop ] [ bad-stack-effect ] if ;