23 lines
620 B
Forth
23 lines
620 B
Forth
~~~
|
|
:err:set-handler (:nn-)
|
|
DEVICE:ERROR io:scan-for
|
|
dup n:negative? [ drop 'Error:_error_handling_device_not_found s:put nl ] if;
|
|
#0 swap io:invoke ;
|
|
|
|
:err:dsu (:-)
|
|
reset nl 'ERROR:_DSU:_DATA_STACK_UNDERFLOW s:put nl bye ;
|
|
|
|
:err:dso (:-)
|
|
reset nl 'ERROR:_DSO:_DATA_STACK_OVERFLOW s:put nl bye ;
|
|
|
|
:err:set-defaults (:-)
|
|
&err:dsu #1 err:set-handler
|
|
&err:dso #2 err:set-handler ;
|
|
|
|
'interface/error.retro s:keep
|
|
dup 'err:set-handler d:lookup d:source store
|
|
dup 'err:set-defaults d:lookup d:source store
|
|
dup 'err:dso d:lookup d:source store
|
|
dup 'err:dsu d:lookup d:source store
|
|
drop
|
|
~~~
|