diff options
author | Adam Chlipala <adam@chlipala.net> | 2015-06-03 09:55:37 -0400 |
---|---|---|
committer | Adam Chlipala <adam@chlipala.net> | 2015-06-03 09:55:37 -0400 |
commit | c87bb7427ff06f241ec33c970d9f2e2762c0cbe4 (patch) | |
tree | 29c51458649dd81ac7c8e7f98b2e98d4108d4204 /lib/ur/top.ur | |
parent | 667321ef5eb38e7cfbf5ce52010e9c95dc5f6874 (diff) |
Adjust new [assert] to work properly from top.ur
Diffstat (limited to 'lib/ur/top.ur')
-rw-r--r-- | lib/ur/top.ur | 2 |
1 files changed, 1 insertions, 1 deletions
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> |