[Win32forth-cvs] win32forth/src/kernel fkernel.f,1.81,1.82

[George H. <geo...@us...>]

Update of /cvsroot/win32forth/win32forth/src/kernel
In directory vz-cvs-4.sog:/tmp/cvs-serv7362

Modified Files:
	fkernel.f 
Log Message:
Tidied up.

Index: fkernel.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/kernel/fkernel.f,v
retrieving revision 1.81
retrieving revision 1.82
diff -C2 -d -r1.81 -r1.82
*** fkernel.f	9 Nov 2011 22:00:07 -0000	1.81
--- fkernel.f	17 Nov 2011 19:36:22 -0000	1.82
***************
*** 5054,5060 ****
                  IF
                    LOADFILE COUNT CUR-FILE PLACE \ make current again
- \                   0 to source-position
- \                   0 0 source-id reposition-file THROW_FILEREADFAIL ?THROW
- \                   >in @ LOADLINE @  0 LoadLine ! 0 ?do refill drop loop >in !
                    source-position 0 source-id reposition-file THROW_FILEREADFAIL ?THROW
                    TIB MAXSTRING SOURCE-ID READ-LINE THROW_FILEREADFAIL ?THROW drop (SOURCE) !
--- 5054,5057 ----