diff options
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)) |