Adding posix signal handling.

This commit is contained in:
Brad Nelson
2022-12-31 16:21:43 -08:00
parent f77a65ce3c
commit 5afdbf0423
9 changed files with 57 additions and 10 deletions

View File

@ -81,6 +81,7 @@ create I ' r@ @ ' i ! ( i is same as r@ )
( Exceptions )
variable handler
handler 'throw-handler !
: catch ( xt -- n )
fp@ >r sp@ >r handler @ >r rp@ handler ! execute
r> handler ! rdrop rdrop 0 ;