[Win32forth-cvs] win32forth/src/lib STRUCT.F,1.9,1.10

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

Update of /cvsroot/win32forth/win32forth/src/lib
In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv20408/win32forth/src/lib

Modified Files:
	STRUCT.F 
Log Message:
gah:Used module to hide (}strust) correctly

Index: STRUCT.F
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/lib/STRUCT.F,v
retrieving revision 1.9
retrieving revision 1.10
diff -C2 -d -r1.9 -r1.10
*** STRUCT.F	3 Aug 2006 13:08:22 -0000	1.9
--- STRUCT.F	4 Aug 2006 09:45:53 -0000	1.10
***************
*** 35,43 ****
        does> cell+ @ add-struct ;       \ get the offset and create a field with it that is itself that offsetword
  
! module
  
  : }struct
        sys-warning? >r sys-warning-off (}struct) r> to sys-warning? ;
  
  \ >struct compiles the adress and offset as 1 adress inside a definition
  : >struct (  -<name-struct>- -<member>- -  )
--- 35,45 ----
        does> cell+ @ add-struct ;       \ get the offset and create a field with it that is itself that offsetword
  
! external
  
  : }struct
        sys-warning? >r sys-warning-off (}struct) r> to sys-warning? ;
  
+ module
+ 
  \ >struct compiles the adress and offset as 1 adress inside a definition
  : >struct (  -<name-struct>- -<member>- -  )