[Win32forth-cvs] win32forth/Help HelpStruct.f,1.2,1.3

[Dirk B. <db...@us...>]

Update of /cvsroot/win32forth/win32forth/Help
In directory 23jxhf1.ch3.sourceforge.com:/tmp/cvs-serv30495

Modified Files:
	HelpStruct.f 
Log Message:
fixed redefinition of vcmpz

Index: HelpStruct.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/Help/HelpStruct.f,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** HelpStruct.f	18 Aug 2008 21:41:20 -0000	1.2
--- HelpStruct.f	23 Dec 2008 10:50:49 -0000	1.3
***************
*** 497,501 ****
             0 ?do 2dup w@ swap w! 2 2 d+ loop
             drop 0 swap w! ;
! : vcmpz    abort" not yet implemented" ;
  
  \ now set the xts for defined basic data types
--- 497,501 ----
             0 ?do 2dup w@ swap w! 2 2 d+ loop
             drop 0 swap w! ;
! : vcmpu    abort" not yet implemented" ;
  
  \ now set the xts for defined basic data types
***************
*** 506,510 ****
  ' string=   >body bdxt    ' v@s over !  ' v!s over cell+ !  ' vcmps over 2 cells + !   drop
  ' zstring=  >body bdxt    ' v@z over !  ' v!z over cell+ !  ' vcmpz over 2 cells + !   drop
! ' zunicode= >body bdxt    ' v@u over !  ' v!z over cell+ !  ' vcmpz over 2 cells + !   drop
  
  : TypeExec      ( ..manyparams.. xtrank -- )
--- 506,510 ----
  ' string=   >body bdxt    ' v@s over !  ' v!s over cell+ !  ' vcmps over 2 cells + !   drop
  ' zstring=  >body bdxt    ' v@z over !  ' v!z over cell+ !  ' vcmpz over 2 cells + !   drop
! ' zunicode= >body bdxt    ' v@u over !  ' v!z over cell+ !  ' vcmpu over 2 cells + !   drop
  
  : TypeExec      ( ..manyparams.. xtrank -- )