From 950cbc5e7df234c9e7fbc5e6c02bb3d292d95efa Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Tue, 9 Jun 2015 09:59:29 -0700
Subject: [PATCH] infix: fix bug with recent locals refactor.

---
 extra/infix/infix.factor | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/extra/infix/infix.factor b/extra/infix/infix.factor
index b81dc1db62..45ea18b128 100644
--- a/extra/infix/infix.factor
+++ b/extra/infix/infix.factor
@@ -3,7 +3,7 @@
 USING: accessors assocs combinators effects effects.parser fry
 infix.ast infix.parser kernel locals locals.parser math
 math.functions math.order math.ranges multiline namespaces
-parser quotations sequences summary words ;
+parser quotations sequences summary vocabs.parser words ;
 IN: infix
 
 <PRIVATE
@@ -15,7 +15,8 @@ M: local-not-defined summary
     drop "local is not defined" ;
 
 : >local-word ( string -- word )
-    locals get ?at [ local-not-defined ] unless ;
+    qualified-vocabs last words>> ?at
+    [ local-not-defined ] unless ;
 
 ERROR: invalid-op string ;