[Wisp-cvs] wisp/users/dig winapi.tran,1.6,1.7

[<di...@us...>]

Update of /cvsroot/wisp/wisp/users/dig
In directory sc8-pr-cvs1:/tmp/cvs-serv32045

Modified Files:
	winapi.tran 
Log Message:
implemented AllocConsole

Index: winapi.tran
===================================================================
RCS file: /cvsroot/wisp/wisp/users/dig/winapi.tran,v
retrieving revision 1.6
retrieving revision 1.7
diff -u -d -r1.6 -r1.7
--- winapi.tran	21 May 2003 12:58:57 -0000	1.6
+++ winapi.tran	21 May 2003 13:17:02 -0000	1.7
@@ -24,4 +24,7 @@
 :[ ] Sleep \ ( millisec -- )
     commit 'Sleep@kernel32 $call %eax ;
 
+:[ ] AllocConsole \ ( -- success? )
+    commit 'AllocConsole@kernel32 $call %eax ;
+
 \ vim: ft=tran