From 65369b49c45f46a50c8f4df0625162a7b04e0c5e Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= <hugo@lysator.liu.se>
Date: Fri, 22 Mar 2019 19:38:41 +0100
Subject: Move take-to to util.

---
 main.scm | 4 ----
 util.scm | 5 +++++
 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)))
-- 
cgit v1.2.3