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

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

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

Modified Files:
	w_search.f 
Log Message:
Jos  complete makeover of +trailing

Index: w_search.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/lib/w_search.f,v
retrieving revision 1.8
retrieving revision 1.9
diff -C2 -d -r1.8 -r1.9
*** w_search.f	20 Feb 2013 21:56:30 -0000	1.8
--- w_search.f	21 Feb 2013 01:05:34 -0000	1.9
***************
*** 21,24 ****
--- 21,27 ----
  \  - Added "SetToForeground
  
+ \ February 21st, 2013
+ \  - Improved +training
+ 
  \  From toolset.f \ load it here when you would like to use it.
  
***************
*** 263,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
   ;
  
--- 266,276 ----
   ;
  
! : +trailing  ( addr count  char -- adr2 count2 ) \ remove leading char
!    locals| char |
!      dup 0>
!         if  begin   over c@ char =
!             while   1 /string
!             repeat
!         then
   ;