1 files changed, 0 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)))