mclangc/include/util.mcl

15 lines
299 B
Plaintext
Raw Normal View History

2023-03-20 14:13:34 +00:00
// Assert implementation
// args: [condition, str_len, str_ptr]
// @arg condition: Bool
// @arg str_len: Int
// @arg str_ptr: Ptr
// @ret NULL/NEVER
fn assert with bool int ptr returns null do
2023-03-20 14:13:34 +00:00
rot
if else
"Assert failed: \"" eputs eputs
"\". Exiting!\n" eputs
1 exit
end
end