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

factor: escape/rename more @words.

locals-and-roots
Doug Coleman 2016-06-25 23:21:36 -07:00
parent 381b0940d7
commit b2e0501292
2 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
collections/digraphs/digraphs.factor
View File

@ -19,9 +19,9 @@ TUPLE: vertex value edges ;
: children ( key digraph -- seq ) : children ( key digraph -- seq )
at edges>> ; at edges>> ;
: @edges ( from to digraph -- to edges ) swapd at edges>> ; : edges ( from to digraph -- to edges ) swapd at edges>> ;
: add-edge ( from to digraph -- ) @edges push ; : add-edge ( from to digraph -- ) edges push ;
: delete-edge ( from to digraph -- ) @edges remove! drop ; : delete-edge ( from to digraph -- ) edges remove! drop ;
: delete-to-edges ( to digraph -- ) : delete-to-edges ( to digraph -- )
[ nip dupd edges>> remove! drop ] assoc-each drop ; [ nip dupd edges>> remove! drop ] assoc-each drop ;

2
language/peg/ebnf/ebnf.factor
View File

@ -563,5 +563,5 @@ SYNTAX: \ EBNF:
( input -- ast ) define-declared "ebnf-parser" set-word-prop ( input -- ast ) define-declared "ebnf-parser" set-word-prop
reset-tokenizer ; reset-tokenizer ;
SYNTAX: @ebnf SYNTAX: \ @ebnf
words:last-word dup "ebnf-parser" set-word-prop ; words:last-word dup "ebnf-parser" set-word-prop ;