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

remove extra ?at definition

db4
Doug Coleman 2009-02-22 17:52:04 -06:00
parent 4b3f646cc0
commit f7165e115e
1 changed files with 1 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
extra/infix/infix.factor
View File

@ -14,11 +14,8 @@ ERROR: local-not-defined name ;
M: local-not-defined summary M: local-not-defined summary
drop "local is not defined" ; drop "local is not defined" ;
: at? ( key assoc -- value/key ? )
dupd at* [ nip t ] [ drop f ] if ;
: >local-word ( string -- word ) : >local-word ( string -- word )
locals get at? [ local-not-defined ] unless ; locals get ?at [ local-not-defined ] unless ;
: select-op ( string -- word ) : select-op ( string -- word )
{ {