[Win32forth-cvs] win32forth-stc/src/kernel gkernel.f,1.38,1.39

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

Update of /cvsroot/win32forth/win32forth-stc/src/kernel
In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv20682/win32forth-stc/src/kernel

Modified Files:
	gkernel.f 
Log Message:
gah: modified words with local structures to use localalloc: Modified winpause to work with noconsole code and multi-tasking

Index: gkernel.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth-stc/src/kernel/gkernel.f,v
retrieving revision 1.38
retrieving revision 1.39
diff -C2 -d -r1.38 -r1.39
*** gkernel.f	13 May 2007 21:39:27 -0000	1.38
--- gkernel.f	27 Jun 2007 07:41:12 -0000	1.39
***************
*** 3122,3126 ****
                                  \ and the keyboard i/o
                                  \ f1=false if already inited
!                                 
                  STD_OUTPUT_HANDLE call GetStdHandle to stdout
                  STD_INPUT_HANDLE  call GetStdHandle to stdin
--- 3122,3126 ----
                                  \ and the keyboard i/o
                                  \ f1=false if already inited
! 
                  STD_OUTPUT_HANDLE call GetStdHandle to stdout
                  STD_INPUT_HANDLE  call GetStdHandle to stdin
***************
*** 5062,5067 ****
  1 PROC Sleep
  
! : winpause      ( -- )  \ release control to OS, pump message loop (in wrapper)
!                 key? drop ;
  
  \ note: reset-stacks shouldn't be redefined in an application.
--- 5062,5068 ----
  1 PROC Sleep
  
! defer winpause  ( -- )  \ release control to OS, pump message loop (in wrapper)
! 
! |: _winpause key? drop ; ' _winpause is winpause
  
  \ note: reset-stacks shouldn't be redefined in an application.