diff options
-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))) |