From de02724135e2e975ad9e3025a87e6144ccb03e00 Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@slava-pestovs-macbook-pro.local>
Date: Tue, 11 Nov 2008 23:04:30 -0600
Subject: [PATCH] Make a word inline for the win

---
 basis/heaps/heaps.factor | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/basis/heaps/heaps.factor b/basis/heaps/heaps.factor
index 6c387632ed..92146755d9 100644
--- 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 [