equal
deleted
inserted
replaced
768 |
768 |
769 fun warning s = !warning_fn s; |
769 fun warning s = !warning_fn s; |
770 |
770 |
771 (*print error message and abort to top level*) |
771 (*print error message and abort to top level*) |
772 exception ERROR; |
772 exception ERROR; |
773 fun error_msg s = !error_fn s; |
773 fun error_msg s = !error_fn s; (*promise to raise ERROR later!*) |
774 fun error s = (error_msg s; raise ERROR); |
774 fun error s = (error_msg s; raise ERROR); |
775 fun sys_error msg = (error_msg " !! SYSTEM ERROR !!\n"; error msg); |
775 fun sys_error msg = (error_msg " !! SYSTEM ERROR !!\n"; error msg); |
776 |
776 |
777 fun assert p msg = if p then () else error msg; |
777 fun assert p msg = if p then () else error msg; |
778 fun deny p msg = if p then error msg else (); |
778 fun deny p msg = if p then error msg else (); |