More efficient hi-tag accessor

core/generic/standard/engines/tag/tag.factor

@@ -46,7 +46,7 @@ C: <hi-tag-dispatch-engine> hi-tag-dispatch-engine
     "type" word-prop num-tags get - ;
 
 : hi-tag-quot ( -- quot )
-    [ 0 slot ] num-tags get [ fixnum-fast ] curry compose ;
+    \ hi-tag def>> num-tags get [ fixnum-fast ] curry compose ;
 
 M: hi-tag-dispatch-engine engine>quot
     methods>> engines>quots* [ >r hi-tag-number r> ] assoc-map

core/kernel/kernel.factor

@@ -192,10 +192,10 @@ ERROR: assert got expect ;
 
 <PRIVATE
 
-: hi-tag ( obj -- n ) 0 slot ; inline
-
 : declare ( spec -- ) drop ;
 
+: hi-tag ( obj -- n ) { hi-tag } declare 0 slot ; inline
+
 : do-primitive ( number -- ) "Improper primitive call" throw ;
 
 PRIVATE>