diff options
Diffstat (limited to 'src/lang/util.clj')
| -rw-r--r-- | src/lang/util.clj | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/src/lang/util.clj b/src/lang/util.clj index ec93ac27f..cdfa8555d 100644 --- a/src/lang/util.clj +++ b/src/lang/util.clj @@ -101,6 +101,11 @@ [::failure _] output)))) +(defn assert! [test message] + (if test + (return nil) + (fail message))) + (defn comp-m [f-m g-m] (exec [temp g-m] (f-m temp))) |