From c87bb7427ff06f241ec33c970d9f2e2762c0cbe4 Mon Sep 17 00:00:00 2001
From: Adam Chlipala <adam@chlipala.net>
Date: Wed, 3 Jun 2015 09:55:37 -0400
Subject: Adjust new [assert] to work properly from top.ur

---
 lib/ur/top.ur | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'lib/ur/top.ur')

diff --git a/lib/ur/top.ur b/lib/ur/top.ur
index 06dcab5f..e831b4f7 100644
--- a/lib/ur/top.ur
+++ b/lib/ur/top.ur
@@ -412,4 +412,4 @@ fun min [t] ( _ : ord t) (x : t) (y : t) : t =
     if x < y then x else y
 
 fun assert [a] (cond: bool) (msg: string) (loc: string) (x:a): a =
-  if cond then x else error <xml>{[msg]} at {[loc]}</xml>
+  if cond then x else error <xml>{txt msg} at {txt loc}</xml>
-- 
cgit v1.2.3