diff options
| author | Hugo Hörnquist <hugo@lysator.liu.se> | 2019-03-22 19:38:41 +0100 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2019-03-22 19:38:41 +0100 |
| commit | 65369b49c45f46a50c8f4df0625162a7b04e0c5e (patch) | |
| tree | e602abe299ad030657680bca6f3e7bffb76896aa /util.scm | |
| parent | Add clean-scheme to makefile. (diff) | |
| download | calp-65369b49c45f46a50c8f4df0625162a7b04e0c5e.tar.gz calp-65369b49c45f46a50c8f4df0625162a7b04e0c5e.tar.xz | |
Move take-to to util.
Diffstat (limited to '')
| -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))) |