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 | |
parent | Add clean-scheme to makefile. (diff) | |
download | calp-65369b49c45f46a50c8f4df0625162a7b04e0c5e.tar.gz calp-65369b49c45f46a50c8f4df0625162a7b04e0c5e.tar.xz |
Move take-to to util.
-rwxr-xr-x | main.scm | 4 | ||||
-rw-r--r-- | util.scm | 5 |
2 files changed, 5 insertions, 4 deletions
@@ -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))) @@ -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))) |