blob: 336c44880f834c1f646d7d8946611fcecae0942e (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
|
implement Exceptions;
include "sys.m";
include "draw.m";
sys: Sys;
print: import sys;
Exceptions: module {
init: fn(nil: ref Draw->Context, nil: list of string);
};
init(nil: ref Draw->Context, nil: list of string) {
sys = load Sys Sys->PATH;
raise "going down!";
exit;
}
|
