\ inlining 12-12-00 GB
\ Automatic inlining for small words
3 cells constant maxinline
variable inlinestart
: : : cshere inlinestart ! ;
: ; postpone ; inlinestart @ negate
cshere 1 cells - dup cs@ (hex) 1234
= cells + + maxinline > 0=
if inline then ; immediate