From 60d2623efc54eb38d8f4e087f39b32bee4e1aee8 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= <hugo@lysator.liu.se>
Date: Mon, 10 Aug 2020 10:47:34 +0200
Subject: Add stream-timeslice-limit.

---
 module/vcomponent/search.scm | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

(limited to 'module/vcomponent/search.scm')

diff --git a/module/vcomponent/search.scm b/module/vcomponent/search.scm
index 65e2630a..d240cbdc 100644
--- a/module/vcomponent/search.scm
+++ b/module/vcomponent/search.scm
@@ -63,7 +63,9 @@
 ;; Creates a prepared query wrappend in a paginator.
 ;; (event → bool), (stream event) → <paginator>
 (define-public (prepare-query query-proc event-set)
-  (make-paginator (stream-paginate (stream-filter query-proc event-set))))
+  (make-paginator (stream-paginate
+                   (stream-timeslice-limit
+                    (stream-filter query-proc event-set)))))
 
 (define-record-type <paginator>
   (make-paginator% query max-page true-max-page?)
-- 
cgit v1.2.3