[Win32forth-cvs] win32forth/src/lib w_search.f,1.10,1.11

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

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

Modified Files:
	w_search.f 
Log Message:
Jos: Avoiding duplicate +trailing

Index: w_search.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/lib/w_search.f,v
retrieving revision 1.10
retrieving revision 1.11
diff -C2 -d -r1.10 -r1.11
*** w_search.f	5 Mar 2013 20:46:02 -0000	1.10
--- w_search.f	2 Dec 2015 19:35:14 -0000	1.11
***************
*** 266,269 ****
--- 266,271 ----
   ;
  
+ [UNDEFINED] +trailing  [if]
+ 
  : +trailing  ( addr count  char -- adr2 count2 ) \ remove leading char
     locals| char |
***************
*** 275,278 ****
--- 277,282 ----
   ;
  
+ [then]
+ 
  : #number-line> ( adr count which seperator - n flag )
      locals| seperator |   dup 0>