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

Mark a word inline

db4
Slava Pestov 2008-12-06 15:31:35 -06:00
parent 8a8f0c925c
commit bac338663d
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
core/hashtables/hashtables.factor
View File

@ -40,7 +40,7 @@ TUPLE: hashtable
0 >>count 0 >>deleted drop ; inline 0 >>count 0 >>deleted drop ; inline
: reset-hash ( n hash -- ) : reset-hash ( n hash -- )
swap <hash-array> >>array init-hash ; swap <hash-array> >>array init-hash ; inline
: (new-key@) ( key keys i -- keys n empty? ) : (new-key@) ( key keys i -- keys n empty? )
3dup swap array-nth dup ((empty)) eq? [ 3dup swap array-nth dup ((empty)) eq? [