Simplify terminate + bye + fix build.

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

View File

@ -105,7 +105,6 @@ decimal
( Hookup I/O )
: stdout-write ( a n -- ) stdout -rot write drop ;
: stdin-key ( -- n ) 0 >r stdin rp@ 1 read drop r> ;
: posix-bye 0 sysexit ;
also forth definitions
: default-type stdout-write ;
@ -113,7 +112,7 @@ also forth definitions
only posix definitions
' default-type is type
' default-key is key
' posix-bye is bye
' sysexit is terminate
( I/O Error Helpers )
: 0<ior ( n -- ior ) 0< if errno else 0 then ;