On May 8, 2018, at 6:50 AM, Joe van Tunen <joevt@shaw.ca> wrote:

: (debug-feval) ( fcode# -- fcode# )

  \ Address

  fcode-stream 1 - . here u. ." : "

 

  \ Indicate if word is compiled

  state @ 0<> if

    ." (compile) "

  then

  dup fcode>xt cell - lfa2name type

  dup ."  [ 0x" . ." ]" cr

  ;