Mercurial > urweb
comparison lib/ur/top.ur @ 2151:4cd36865e0b5
assert function to use with location literal _LOC_
author | Gabriel Riba Faura <griba2001@gmail.com> |
---|---|
date | Wed, 03 Jun 2015 15:07:46 +0200 |
parents | a3435112b83e |
children | 2d9e40e726f2 |
comparison
equal
deleted
inserted
replaced
2150:763ccca119bc | 2151:4cd36865e0b5 |
---|---|
408 | 408 |
409 fun max [t] ( _ : ord t) (x : t) (y : t) : t = | 409 fun max [t] ( _ : ord t) (x : t) (y : t) : t = |
410 if x > y then x else y | 410 if x > y then x else y |
411 fun min [t] ( _ : ord t) (x : t) (y : t) : t = | 411 fun min [t] ( _ : ord t) (x : t) (y : t) : t = |
412 if x < y then x else y | 412 if x < y then x else y |
413 | |
414 fun assert [a] (cond: bool) (msg: string) (loc: string) (x:a): a = | |
415 if cond then x else error <xml>{[msg]} at {[loc]}</xml> |