From: Alex M. <ale...@us...> - 2006-09-30 23:22:32
|
Update of /cvsroot/win32forth/win32forth-stc/src In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv32694 Modified Files: dis486.f dotwords.f Log Message: arm: rename xt>name, xt>ct... and name>xt to omit xt part; in line with other Forths that use >name Index: dis486.f =================================================================== RCS file: /cvsroot/win32forth/win32forth-stc/src/dis486.f,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 *** dis486.f 27 Sep 2006 21:01:56 -0000 1.2 --- dis486.f 30 Sep 2006 23:22:26 -0000 1.3 *************** *** 1078,1082 **** : see ( -- ) defined ?missing ! dup xt>name n>ofa w@ over + \ length to disassemble swap begin --- 1078,1082 ---- : see ( -- ) defined ?missing ! dup >name n>ofa w@ over + \ length to disassemble swap begin Index: dotwords.f =================================================================== RCS file: /cvsroot/win32forth/win32forth-stc/src/dotwords.f,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** dotwords.f 21 Sep 2006 16:26:33 -0000 1.1 --- dotwords.f 30 Sep 2006 23:22:26 -0000 1.2 *************** *** 116,120 **** begin @ ?dup while dup cell+ @ ! xt>name dup count nip 3 + ?cr getxy drop 24 < --- 116,120 ---- begin @ ?dup while dup cell+ @ ! >name dup count nip 3 + ?cr getxy drop 24 < |