Mercurial > urweb

diff lib/ur/top.ur @ 2152:2d9e40e726f2

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Adjust new [assert] to work properly from top.ur
author Adam Chlipala <adam@chlipala.net>
date Wed, 03 Jun 2015 09:55:37 -0400
parents 4cd36865e0b5
children
line wrap: on
line diff
--- a/lib/ur/top.ur	Wed Jun 03 15:07:46 2015 +0200
+++ b/lib/ur/top.ur	Wed Jun 03 09:55:37 2015 -0400
@@ -412,4 +412,4 @@
     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>