From 2b23d75544cdebdb8dce995c842c49daadf871a3 Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Thu, 16 Mar 2017 15:36:07 -0700
Subject: [PATCH] infix: fix to allow nested local scopes.

---
 extra/infix/infix.factor | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

diff --git a/extra/infix/infix.factor b/extra/infix/infix.factor
index 45ea18b128..2aafd3bf73 100644
--- a/extra/infix/infix.factor
+++ b/extra/infix/infix.factor
@@ -1,9 +1,9 @@
 ! Copyright (C) 2009 Philipp Brüschweiler
 ! See http://factorcode.org/license.txt for BSD license.
-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 vocabs.parser words ;
+USING: accessors combinators effects effects.parser fry
+infix.ast infix.parser kernel locals locals.parser locals.types
+math math.functions math.order math.ranges multiline parser
+quotations sequences summary vocabs.parser words ;
 IN: infix
 
 <PRIVATE
@@ -15,8 +15,8 @@ M: local-not-defined summary
     drop "local is not defined" ;
 
 : >local-word ( string -- word )
-    qualified-vocabs last words>> ?at
-    [ local-not-defined ] unless ;
+    dup search dup local?
+    [ nip ] [ drop local-not-defined ] if ;
 
 ERROR: invalid-op string ;