EXPOSE-MODULE

* EXPOSE-MODULE ( "name" -- )

affects the search order, ALSO module-wid CONTEXT ! hidden'

 : EXPOSE-MODULE 
    ALSO S" HIDDEN'" 
    ' DUP VOC? ABORT?" is no vocabulary" >VOC 
    SEARCH-WORDLIST 0= IF " no hidden vocabulary found" THEN
    DUP VOC? ABORT?" hidden is no vocabulary" EXECUTE
 ;

module ordinary primitive