Make a word inline for the win

2008-11-11 23:04:30 -06:00 · 2008-11-11 23:04:30 -06:00 · de02724135
parent 57cf756c0e
commit de02724135
1 changed files with 1 additions and 1 deletions
--- a/basis/heaps/heaps.factor
+++ b/basis/heaps/heaps.factor
@ -62,7 +62,7 @@ M: heap heap-size ( heap -- n )

 : data-set-nth ( entry n heap -- )
    >r [ >>index drop ] 2keep r>
-    data>> set-nth-unsafe ;
+    data>> set-nth-unsafe ; inline

 : data-push ( entry heap -- n )
    dup heap-size [