steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
extra/infix/infix.factor
View File

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