\ ==============================================================================
\ 
\ 	RubyFORTH -- Copyright (C) 2007-8, Marc Simpson (GPL). 
\ 
\       Print the location of a forward parsed word -- inspection.
\ 
\ ==============================================================================

prim in-compiler? push(forth_flag(compiler_word(pop)))
prim in-forth? push(forth_flag(forth_word(pop)))

: whereis: ( "<word>" -- )
    parse-word dup
    in-compiler? if ." compiler" cr then
    in-forth? if ." forth" cr then
;

( Usage ==> whereis: 2dup )