aboutsummaryrefslogtreecommitdiff
path: root/module/vcomponent/search.scm
diff options
context:
space:
mode:
Diffstat (limited to 'module/vcomponent/search.scm')
-rw-r--r--module/vcomponent/search.scm4
1 files changed, 2 insertions, 2 deletions
diff --git a/module/vcomponent/search.scm b/module/vcomponent/search.scm
index e92e166f..5cb91e51 100644
--- a/module/vcomponent/search.scm
+++ b/module/vcomponent/search.scm
@@ -40,9 +40,9 @@
;; (event → bool), (stream event), (() → Any) → (paginated-stream event)
(define*-public (execute-query query page
key:
- time-out-handler
+ ;; time-out-handler
(time-limit 1))
- (catch #t
+ (catch 'not-an-actual-error ; 'timed-out
(lambda ()
(call-with-time-limit
time-limit