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