From: Jos v.d.V. <jo...@us...> - 2005-04-24 11:59:24
|
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 ! |