[Win32forth-cvs] win32forth/src/lib w_search.f,1.7,1.8

[Jos v.d.V. <jo...@us...>]

Update of /cvsroot/win32forth/win32forth/src/lib
In directory sfp-cvs-1.v30.ch3.sourceforge.com:/tmp/cvs-serv17327

Modified Files:
	w_search.f 
Log Message:
Jos Now +trailing is also right when 0 characters are offered

Index: w_search.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/lib/w_search.f,v
retrieving revision 1.7
retrieving revision 1.8
diff -C2 -d -r1.7 -r1.8
*** w_search.f	24 Feb 2007 18:11:05 -0000	1.7
--- w_search.f	20 Feb 2013 21:56:30 -0000	1.8
***************
*** 264,273 ****
  
  : +trailing ( adr count char - adr2 count2 )
!     -rot dup>r over + swap dup>r
!         ?do   i c@ over <>
!                 if   i leave
!                 then
!         loop
!      nip r> -dup - r> swap -
   ;
  
--- 264,276 ----
  
  : +trailing ( adr count char - adr2 count2 )
!     over 0>
!        if   -rot dup>r over + swap dup>r
!                  ?do   i c@ over <>
!                        if   i leave
!                        then
!                  loop
!              nip r> -dup - r> swap -
!        else  drop
!        then
   ;