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.

---
 util.scm | 5 +++++
 1 file changed, 5 insertions(+)

(limited to 'util.scm')

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