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