aboutsummaryrefslogtreecommitdiff
path: root/module/util.scm
diff options
context:
space:
mode:
authorHugo Hörnquist <hugo@lysator.liu.se>2020-07-04 17:34:26 +0200
committerHugo Hörnquist <hugo@lysator.liu.se>2020-07-07 13:10:38 +0200
commit2e96f3a890bcc73457c6a41bf6ee212f8f725854 (patch)
treeccba9b073e835572da5c8c0a3d00c4dfce81f3b4 /module/util.scm
parentMerge (datetime util) into (datetime). (diff)
downloadcalp-2e96f3a890bcc73457c6a41bf6ee212f8f725854.tar.gz
calp-2e96f3a890bcc73457c6a41bf6ee212f8f725854.tar.xz
Clean up datetime parsing.
Diffstat (limited to 'module/util.scm')
-rw-r--r--module/util.scm5
1 files changed, 5 insertions, 0 deletions
diff --git a/module/util.scm b/module/util.scm
index 00af7258..abb12f8b 100644
--- a/module/util.scm
+++ b/module/util.scm
@@ -519,6 +519,11 @@
(call-with-values (lambda () (apply proc args)) list))
lists)))
+
+
+(define-public (vector-last v)
+ (vector-ref v (1- (vector-length v))))
+