From e6d9996b12a6b330d94ec2ae5a4a9f7ae166dc8c Mon Sep 17 00:00:00 2001
From: Bruce Hill <bruce@bruce-hill.com>
Date: Sun, 27 Jan 2019 02:02:40 -0800
Subject: Fail no longer prepends 'Failure:' automatically, now fail_at() does
 if no prefix is there.

---
 lib/core/errors.nom | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'lib/core/errors.nom')

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:
-- 
cgit v1.2.3