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

Make a word inline for the win

db4
Slava Pestov 2008-11-11 23:04:30 -06:00
parent 57cf756c0e
commit de02724135
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
basis/heaps/heaps.factor
View File

@ -62,7 +62,7 @@ M: heap heap-size ( heap -- n )
: data-set-nth ( entry n heap -- ) : data-set-nth ( entry n heap -- )
>r [ >>index drop ] 2keep r> >r [ >>index drop ] 2keep r>
data>> set-nth-unsafe ; data>> set-nth-unsafe ; inline
: data-push ( entry heap -- n ) : data-push ( entry heap -- n )
dup heap-size [ dup heap-size [