diff options
| author | Xander <xander@biltopia.org> | 2023-08-06 17:44:45 +0200 |
|---|---|---|
| committer | Xander <xander@biltopia.org> | 2023-08-06 17:44:45 +0200 |
| commit | cef3f6bdddfe768e7a1a84edcec76c11c1634941 (patch) | |
| tree | a7681996224d1d3bf6eeda8657ac500ac061c2d5 /lib/SATS | |
| parent | 272a40095e7c3f694f010d074ab54b326730009e (diff) | |
| download | ats-os-cef3f6bdddfe768e7a1a84edcec76c11c1634941.tar.xz ats-os-cef3f6bdddfe768e7a1a84edcec76c11c1634941.zip | |
Implemented panic
Diffstat (limited to 'lib/SATS')
| -rw-r--r-- | lib/SATS/init.sats | 4 | ||||
| -rw-r--r-- | lib/SATS/panic.sats | 5 |
2 files changed, 7 insertions, 2 deletions
diff --git a/lib/SATS/init.sats b/lib/SATS/init.sats index 9261ca9..69c6c9a 100644 --- a/lib/SATS/init.sats +++ b/lib/SATS/init.sats @@ -6,8 +6,8 @@ fun {vt:viewt@ype} uninitialized (v : opt(vt,false)): initializable vt fun {vt:viewt@ype} exec_void (r: ref(initializable vt)):<!refwrt> void fun {vt:viewt@ype} exec_void$fwork (v : &vt):<!wrt> void -fun {vt:viewt@ype} {a: t@ype} exec (r: ref(initializable vt), default: a):<!refwrt> a -fun {vt:viewt@ype} {a: t@ype} exec$fwork (v : &vt, default: a):<!wrt> a +fun {vt:viewt@ype} {a: t@ype} exec (r: ref(initializable vt)):<!refwrt> a +fun {vt:viewt@ype} {a: t@ype} exec$fwork (v : &vt):<!wrt> a fun {vt:viewt@ype} initialize (r: ref(initializable vt)):<!ref,!wrt> void fun {vt:viewt@ype} initialize$fwork (v: &vt? >> opt(vt,success)):<!wrt> #[success : bool] bool success diff --git a/lib/SATS/panic.sats b/lib/SATS/panic.sats new file mode 100644 index 0000000..123b8da --- /dev/null +++ b/lib/SATS/panic.sats @@ -0,0 +1,5 @@ +staload UN = "prelude/SATS/unsafe.sats" + +fun panic_loc (loc: string, msg: string) :<> void + +macdef panic(msg) = panic_loc($mylocation, ,(msg)) |