diff options
| author | Bruce Hill <bruce@bruce-hill.com> | 2018-12-30 23:58:47 -0800 |
|---|---|---|
| committer | Bruce Hill <bruce@bruce-hill.com> | 2018-12-30 23:58:47 -0800 |
| commit | 5059c081ac624ede925d5256885509ddd17181c6 (patch) | |
| tree | 0457d135e5193126bf73466bfaae09df94ab8a7d /core/errors.nom | |
| parent | ec69ee6f62016a2edcc13e3183cbe4cadd75717f (diff) | |
Auto-upgraded code.
Diffstat (limited to 'core/errors.nom')
| -rw-r--r-- | core/errors.nom | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/core/errors.nom b/core/errors.nom index 9cf7a23..edcfffa 100644 --- a/core/errors.nom +++ b/core/errors.nom @@ -7,10 +7,12 @@ use "core/metaprogramming.nom" ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ (barf $msg) compiles to -.."error(\(=lua "\$msg and \($msg as lua expr) or 'nil'"), 0);" + "error(\(=lua "\$msg and \($msg as lua expr) or 'nil'"), 0);" (assume $condition) compiles to: - lua> "local \$assumption = 'Assumption failed: '..tostring((\$condition):get_source_code())" + lua> (" + local \$assumption = 'Assumption failed: '..tostring((\$condition):get_source_code()) + ") return Lua (" @@ -29,7 +31,8 @@ use "core/metaprogramming.nom" do local \(mangle "a"), \(mangle "b") = \($a as lua expr), \($b as lua expr) if \(mangle "a") ~= \(mangle "b") then - error(\(quote "\$assumption").."\\n"..tostring(\(mangle "a")).." != "..tostring(\(mangle "b")), 0) + error(\(quote "\$assumption").."\\n"..tostring(\(mangle "a")).." != "..tostring(\ + ..\(mangle "b")), 0) end end ") |