[Win32forth-cvs] win32forth/src Utils.f,1.26,1.27

[Rod O. <rod...@us...>]

Update of /cvsroot/win32forth/win32forth/src
In directory 23jxhf1.ch3.sourceforge.com:/tmp/cvs-serv26174/src

Modified Files:
	Utils.f 
Log Message:
Rod: put a WinPause in _MS so that the console updates before sleeping

Index: Utils.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/Utils.f,v
retrieving revision 1.26
retrieving revision 1.27
diff -C2 -d -r1.26 -r1.27
*** Utils.f	19 May 2009 17:54:54 -0000	1.26
--- Utils.f	20 May 2009 10:18:10 -0000	1.27
***************
*** 490,493 ****
--- 490,494 ----
  \ September 17th, 2003 - 10:38 dbu
  : _MS           ( u -- )       \ delay u milli-seconds or forever if u=-1.
+                 dup IF  WinPause  THEN
                  Call Sleep drop ;