[Win32forth-cvs] win32forth/apps/WinEd Ed_Search.F,1.4,1.5

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

Update of /cvsroot/win32forth/win32forth/apps/WinEd
In directory sfp-cvs-1.v30.ch3.sourceforge.com:/tmp/cvs-serv31391

Modified Files:
	Ed_Search.F 
Log Message:
Jos Adapted also the duplicate

Index: Ed_Search.F
===================================================================
RCS file: /cvsroot/win32forth/win32forth/apps/WinEd/Ed_Search.F,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -d -r1.4 -r1.5
*** Ed_Search.F	20 Feb 2013 22:10:15 -0000	1.4
--- Ed_Search.F	21 Feb 2013 01:09:57 -0000	1.5
***************
*** 240,253 ****
   ;
  
! : +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
   ;
  
--- 240,250 ----
   ;
  
! : +trailing  ( addr count  char -- adr2 count2 ) \ remove leading char
!    locals| char |
!      dup 0>
!         if  begin   over c@ char =
!             while   1 /string
!             repeat
!         then
   ;