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

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

Update of /cvsroot/win32forth/win32forth/src
In directory vz-cvs-4.sog:/tmp/cvs-serv12002

Modified Files:
	Module.f 
Log Message:
Moved (reset-stacks) to system space

Index: Module.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/Module.f,v
retrieving revision 1.5
retrieving revision 1.6
diff -C2 -d -r1.5 -r1.6
*** Module.f	7 Feb 2006 11:25:49 -0000	1.5
--- Module.f	26 Feb 2012 20:03:49 -0000	1.6
***************
*** 92,106 ****
  \ January 22nd, 2004 - 13:53 dbu
  
- in-application
- 
  : (RESET-STACKS) ( -- ) \ Used by RESET-STACKS for protection
!                 TURNKEYED? NOT
! \in-system-ok   if   pre-voc if module then
!                 then ;
  
  reset-stack-chain chain-add (RESET-STACKS)
  
- in-system
- 
  only forth also definitions
  
--- 92,100 ----
  \ January 22nd, 2004 - 13:53 dbu
  
  : (RESET-STACKS) ( -- ) \ Used by RESET-STACKS for protection
!                  pre-voc if module then ;
  
  reset-stack-chain chain-add (RESET-STACKS)
  
  only forth also definitions