aboutsummaryrefslogtreecommitdiff
path: root/lib/core
diff options
context:
space:
mode:
Diffstat (limited to 'lib/core')
-rw-r--r--lib/core/errors.nom6
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: