Merge branch 'master' of http://factorcode.org/git/factor

[factor.git] / basis / locals / rewrite / sugar / sugar.factor

diff --git a/basis/locals/rewrite/sugar/sugar.factor b/basis/locals/rewrite/sugar/sugar.factor
index e22e24733682efdc4b5bd2696e858fa8b8329d90..a8a12d2614d86c3e353e44e93ca76db7d9e3db76 100755 (executable)
--- a/basis/locals/rewrite/sugar/sugar.factor
+++ b/basis/locals/rewrite/sugar/sugar.factor
@@ -112,7 +112,7 @@ M: wrapper rewrite-sugar*
     rewrite-wrapper ;
 
 M: word rewrite-sugar*
-    dup { load-locals get-local drop-locals } memq?
+    dup { load-locals get-local drop-locals } member-eq?
     [ >r/r>-in-lambda-error ] [ call-next-method ] if ;
 
 M: object rewrite-sugar* , ;