diff options
| author | Bruce Hill <bruce@bruce-hill.com> | 2019-01-27 02:02:40 -0800 |
|---|---|---|
| committer | Bruce Hill <bruce@bruce-hill.com> | 2019-01-27 02:03:03 -0800 |
| commit | e6d9996b12a6b330d94ec2ae5a4a9f7ae166dc8c (patch) | |
| tree | 41933d5642ccba820481992fe1a4f353b41fb2a4 /lib | |
| parent | 3142ef46a3385b209f29d843cf20c8f02ad65905 (diff) | |
Fail no longer prepends 'Failure:' automatically, now fail_at() does if
no prefix is there.
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/core/errors.nom | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lib/core/errors.nom b/lib/core/errors.nom index e1dd9d4..b1f1941 100644 --- a/lib/core/errors.nom +++ b/lib/core/errors.nom @@ -9,9 +9,9 @@ use "core/control_flow" ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ (fail $msg) compiles to (" - at_1_fail(\(quote (this tree).source), 'Failure: \( - "'..\($msg as lua expr)" if $msg else "A failure was triggered here'" - )) + at_1_fail(\(quote (this tree).source), + \(($msg as lua expr) if $msg else (quote "A failure was triggered here'")) + ) ") (assume $condition) compiles to: |