[Win32forth-cvs] win32forth/src Debug.f,1.24,1.25

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

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

Modified Files:
	Debug.f 
Log Message:
Jos Just some comment

Index: Debug.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/Debug.f,v
retrieving revision 1.24
retrieving revision 1.25
diff -C2 -d -r1.24 -r1.25
*** Debug.f	20 Mar 2013 23:51:21 -0000	1.24
--- Debug.f	1 Apr 2013 12:22:02 -0000	1.25
***************
*** 792,797 ****
                  loop    2drop cell - ! ;
  
! : patchinto     ( a1 -<name1 name2>- )
!                 1 #patchinto ;
  
  
--- 792,797 ----
                  loop    2drop cell - ! ;
  
! : patchinto     ( a1 -<name1 name2>- ) \ Patch a1 into the definition name1
!                 1 #patchinto ;         \ at the first occurance of name2