[Win32forth-cvs] win32forth/src/kernel fkernel.f,1.78,1.79

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

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

Modified Files:
	fkernel.f 
Log Message:
Modified Restore-input to work if Save-input is used within a file.

Index: fkernel.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/kernel/fkernel.f,v
retrieving revision 1.78
retrieving revision 1.79
diff -C2 -d -r1.78 -r1.79
*** fkernel.f	18 Aug 2011 12:59:52 -0000	1.78
--- fkernel.f	14 Sep 2011 13:18:19 -0000	1.79
***************
*** 5024,5027 ****
--- 5024,5029 ----
  \ -------------------- save/restore file input ------------------------------
  
+ 
+ 
  : SAVE-INPUT    ( -- ... 7 )                  \ save input
                  LOADFILE
***************
*** 5044,5047 ****
--- 5046,5052 ----
                  IF
                    LOADFILE COUNT CUR-FILE PLACE \ make current again
+                   0 to source-position
+                   0 0 source-id reposition-file drop
+                   >in @ LOADLINE @  0 LoadLine ! 0 ?do refill drop loop >in !
                  THEN
                  FALSE ;