[Win32forth-cvs] win32forth/src Module.f,1.4,1.5

[George H. <geo...@us...>]

Update of /cvsroot/win32forth/win32forth/src
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv21665/win32forth/src

Modified Files:
	Module.f 
Log Message:
gah: More dexing

Index: Module.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/Module.f,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -d -r1.4 -r1.5
*** Module.f	4 Feb 2006 16:12:24 -0000	1.4
--- Module.f	7 Feb 2006 11:25:49 -0000	1.5
***************
*** 47,51 ****
  \ *S Glossary
  
! : (PRIVATE)     ( xt-of-voc -- )
  \ *G Set the vocabulary for internal definitions for the next module to be built.
  \ ** This is a non-parsing version of the word PRIVATE.
--- 47,51 ----
  \ *S Glossary
  
! : (PRIVATE)     ( xt-of-voc -- )  \ W32F         Module System
  \ *G Set the vocabulary for internal definitions for the next module to be built.
  \ ** This is a non-parsing version of the word PRIVATE.
***************
*** 54,63 ****
                  is hidden-voc ;
  
! : PRIVATE       ( -<voc>- )
  \ *G Set the vocabulary for internal definitions for the next module to be built.
  \ ** This is a parsing version of the word (PRIVATE).
                  ' (private) ;
  
! : INTERNAL      ( -- )
  \ *G If a module hasn't yet been started or the internal vocabulary isn't the context
  \ ** vocabulary add the internal vocabulary to the search order and save the current
--- 54,63 ----
                  is hidden-voc ;
  
! : PRIVATE       ( -<voc>- )       \ W32F         Module System
  \ *G Set the vocabulary for internal definitions for the next module to be built.
  \ ** This is a parsing version of the word (PRIVATE).
                  ' (private) ;
  
! : INTERNAL      ( -- )            \ W32F         Module System
  \ *G If a module hasn't yet been started or the internal vocabulary isn't the context
  \ ** vocabulary add the internal vocabulary to the search order and save the current
***************
*** 72,81 ****
                  then    ;
  
! : EXTERNAL      ( -- )
  \ *G Make the external vocabulary the current vocabulary.
                  pre-voc 0= abort" Use Only while building a module"
                  pre-voc current ! ;
  
! : MODULE        ( -- )
  \ *G Complete the module by making the external vocabulary the current vocabulary,
  \ ** removing the internal vocabulary from the search order if it's the context
--- 72,81 ----
                  then    ;
  
! : EXTERNAL      ( -- )            \ W32F         Module System
  \ *G Make the external vocabulary the current vocabulary.
                  pre-voc 0= abort" Use Only while building a module"
                  pre-voc current ! ;
  
! : MODULE        ( -- )            \ W32F         Module System
  \ *G Complete the module by making the external vocabulary the current vocabulary,
  \ ** removing the internal vocabulary from the search order if it's the context