diff options
Diffstat (limited to 'util.scm')
-rw-r--r-- | util.scm | 5 |
1 files changed, 5 insertions, 0 deletions
@@ -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))) |