aboutsummaryrefslogtreecommitdiff
path: root/src/lang/util.clj
diff options
context:
space:
mode:
authorEduardo Julian2014-12-20 23:25:40 -0400
committerEduardo Julian2014-12-20 23:25:40 -0400
commit74d3233f7d7984ebcef0d4e6778f0596e867de6c (patch)
treeacb80d80ecf005fceff316b7ba4084407087c68c /src/lang/util.clj
parentef185e0ec91af1d22762ef55dc5586c240633e18 (diff)
* Java interop is almost finished.
% _. and _.. syntax has been replaced with ::
Diffstat (limited to '')
-rw-r--r--src/lang/util.clj5
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)))