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

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

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

Modified Files:
	winapi.tran 
Log Message:
wrapped FreeConsole

Index: winapi.tran
===================================================================
RCS file: /cvsroot/wisp/wisp/users/dig/winapi.tran,v
retrieving revision 1.7
retrieving revision 1.8
diff -u -d -r1.7 -r1.8
--- winapi.tran	21 May 2003 13:17:02 -0000	1.7
+++ winapi.tran	21 May 2003 13:20:09 -0000	1.8
@@ -27,4 +27,7 @@
 :[ ] AllocConsole \ ( -- success? )
     commit 'AllocConsole@kernel32 $call %eax ;
 
+:[ ] FreeConsole \ ( -- success? )
+    commit 'FreeConsole@kernel32 $call %eax ;
+
 \ vim: ft=tran