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>- - )
|
