From 86ae14bfadb987b1a2ce6039d41683e48f8f6e5b Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= Date: Mon, 25 Mar 2019 13:54:21 +0100 Subject: Replace one filter. --- module/main.scm | 4 ++-- module/util.scm | 2 ++ 2 files changed, 4 insertions(+), 2 deletions(-) (limited to 'module') 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) diff --git a/module/util.scm b/module/util.scm index 6f1b955a..f60986ed 100644 --- a/module/util.scm +++ b/module/util.scm @@ -154,6 +154,8 @@ ;; seeds: (car items) '()))) +;; TODO This might be utterly broken, do some real tests on it +;; (and then run equivalent tests on the stream variant) (define-public (filter-sorted proc list) (take-while proc (drop-while -- cgit v1.2.3