* 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 ;
EXPOSE-MODULE
( "name" -- )
: 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 ;
EXTENSIONS module ordinary primitive