inlining.txt


\ 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


  HTMLized by Forth2HTML