infix: fix bug with recent locals refactor.

db4
John Benediktsson 2015-06-09 09:59:29 -07:00
parent 72c95895e7
commit 950cbc5e7d
1 changed files with 3 additions and 2 deletions

View File

@ -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 ;