Update of /cvsroot/win32forth/win32forth/apps/Player4
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv18042/win32forth/apps/Player4
Modified Files:
Catalog.f
Log Message:
Jos: Redefined InlineRecord for struct.f
Index: Catalog.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/apps/Player4/Catalog.f,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** Catalog.f 23 Apr 2005 11:00:06 -0000 1.2
--- Catalog.f 24 Apr 2005 11:59:16 -0000 1.3
***************
*** 40,44 ****
\ An easy way to create and debug a fixed record
! sizeof RecordDef dup to record-size create InlineRecord allot
: file-exist? ( adr len -- true-if-file-exist )
--- 40,44 ----
\ An easy way to create and debug a fixed record
! sizeof RecordDef dup to record-size mkstruct: InlineRecord
: file-exist? ( adr len -- true-if-file-exist )
***************
*** 247,249 ****
\s
! |
