Move take-to to util.

2 files changed, 5 insertions, 4 deletions

diff --git a/main.scm b/main.scm
index aba0270f..223b3d2e 100755
--- a/main.scm
+++ b/main.scm
@@ -20,10 +20,6 @@
              (terminal escape)
              (terminal util))
 
-(define (take-to lst i)
-  (if (> i (length lst))
-      lst (take lst i)))
-
 (define (ev-time<? a b)
   (time<? (attr a 'DTSTART)
           (attr b 'DTSTART)))
diff --git a/util.scm b/util.scm
index 421b38f4..41302683 100644
--- a/util.scm
+++ b/util.scm
@@ -162,3 +162,8 @@
 
 ;; (define (!= a b) (not (= a b)))
 (define-public != (negate =))
+
+(define-public (take-to lst i)
+  "Like @var{take}, but might lists shorter than length."
+  (if (> i (length lst))
+      lst (take lst i)))