diff options
author | Hugo Hörnquist <hugo@lysator.liu.se> | 2019-03-25 13:54:21 +0100 |
---|---|---|
committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2019-03-25 13:54:21 +0100 |
commit | 86ae14bfadb987b1a2ce6039d41683e48f8f6e5b (patch) | |
tree | f997b9dedaadf94b2173f4b84d096340448f61e4 /module/main.scm | |
parent | Update make-vcomponent to allow VIRTUAL components. (diff) | |
download | calp-86ae14bfadb987b1a2ce6039d41683e48f8f6e5b.tar.gz calp-86ae14bfadb987b1a2ce6039d41683e48f8f6e5b.tar.xz |
Replace one filter.
Diffstat (limited to 'module/main.scm')
-rwxr-xr-x | module/main.scm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/module/main.scm b/module/main.scm index 223b3d2e..30fd4542 100755 --- a/module/main.scm +++ b/module/main.scm @@ -37,13 +37,13 @@ trimmed))) ; TODO show truncated string - (define (main-loop regular-events repeating-events) (define time (date->time-utc (current-date))) (define cur-event 0) (let loop ((char #\nul)) (let ((events - (merge (filter-sorted + ;; TODO change back to filter-sorted once it's fixed + (merge (filter ;-sorted (cut event-in? <> time) regular-events) |