From c41bd9a441ba3b9fc65d1e1d02edad8ebc59ed8a Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= Date: Sun, 9 Aug 2020 23:46:28 +0200 Subject: Zero-match queries now works. They can't however be cached... --- module/vcomponent/search.scm | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) diff --git a/module/vcomponent/search.scm b/module/vcomponent/search.scm index 708f0895..6e7292c2 100644 --- a/module/vcomponent/search.scm +++ b/module/vcomponent/search.scm @@ -59,9 +59,11 @@ (loop (stream-cdr strm))))) (lambda _ (format (current-error-port) "~a~%" 'timed-out))) (let ((list (reverse lst))) - (set-box! (stream-ref query page) - (list->stream list)) - list))) + (if (null? list) + list + (set-box! (stream-ref query page) + (list->stream list)) + list)))) ;; Creates a prepared query wrappend in a paginator. -- cgit v1.2.3