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

infix: fix to allow nested local scopes.

char-rename
John Benediktsson 2017-03-16 15:36:07 -07:00
parent 20a663ab0b
commit 2b23d75544
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
extra/infix/infix.factor
View File

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