aboutsummaryrefslogtreecommitdiff
path: root/ps/core.ps
diff options
context:
space:
mode:
authorJoel Martin <github@martintribe.org>2014-04-17 21:49:07 -0500
committerJoel Martin <github@martintribe.org>2014-04-17 21:49:07 -0500
commitdb4c329aff4621e05b92a55be4f18173f5a4f655 (patch)
tree92baaa6d88246e509cfd6a7d03d8fab997e0b935 /ps/core.ps
parent8cb5cda46cf3aef847ae3926dc53a5e5f87fe261 (diff)
downloadmal-db4c329aff4621e05b92a55be4f18173f5a4f655.tar.gz
mal-db4c329aff4621e05b92a55be4f18173f5a4f655.zip
All: perf test, Makefile refactor, add *host-language*
Other: - bash,make,postscript: quasiquote of vectors - Fix Java slurp - add time function to core.mal - switches on *host-language* for make time-secs vs time-ms - Ignore */experiments directories
Diffstat (limited to 'ps/core.ps')
-rw-r--r--ps/core.ps3
1 files changed, 1 insertions, 2 deletions
diff --git a/ps/core.ps b/ps/core.ps
index f9397fa..191e5c3 100644
--- a/ps/core.ps
+++ b/ps/core.ps
@@ -1,5 +1,3 @@
-(in core.ps\n) print
-
% requires types.ps
% Errors/Exceptions
@@ -239,6 +237,7 @@ end } def
(-) { dup 0 _nth exch 1 _nth sub }
(*) { dup 0 _nth exch 1 _nth mul }
(/) { dup 0 _nth exch 1 _nth idiv }
+ (time-ms) { pop realtime }
(list) { /data get _list_from_array }
(list?) { 0 _nth _list? }