alx/ueforth
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Simplify terminate + bye + fix build.

Browse Source
This commit is contained in:
Brad Nelson
2022-12-31 21:02:04 -08:00
parent d60606b4c8
commit 1c500c2233
11 changed files with 14 additions and 27 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
windows/windows_console.fs
View File

@ -64,7 +64,6 @@ variable console-mode
: raw-key ( -- n ) 0 >r stdin rp@ 1 NULL NULL ReadFile drop r> ;
: win-key? ( -- f ) stdin 0 WaitForSingleObject 0= ;
: win-key ( -- n ) raw-key dup 13 = if drop nl then ;
: win-bye ( -- ) 0 ExitProcess drop ;
also forth definitions
: default-type win-type ;
@ -74,6 +73,6 @@ only windows definitions
' default-type is type
' default-key is key
' default-key? is key?
' win-bye is bye
' ExitProcess is terminate
only forth definitions