diff options
| author | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-10-15 00:30:15 +0200 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-10-15 00:30:15 +0200 |
| commit | 8cced0532ab69a2346654540a4d01bc64392c359 (patch) | |
| tree | 83f2dfc42937dcb2384347eb2700aa613ef33ff8 | |
| parent | Datetime bindings for search. (diff) | |
| download | calp-8cced0532ab69a2346654540a4d01bc64392c359.tar.gz calp-8cced0532ab69a2346654540a4d01bc64392c359.tar.xz | |
Fix error propagation for some search queries.
| -rw-r--r-- | module/vcomponent/search.scm | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/module/vcomponent/search.scm b/module/vcomponent/search.scm index fef0b100..27483720 100644 --- a/module/vcomponent/search.scm +++ b/module/vcomponent/search.scm @@ -162,8 +162,11 @@ (set-max-page! paginator (max page (get-max-page paginator))) result)))) (lambda (err proc fmt args data) - ;; TODO ensure the error actually is index out of range. - ;; (format (current-error-port) "~?~%" fmt args) + ;; NOTE This is mostly a hack to see that we + ;; actually check for the correct error. + (unless (string=? fmt "beyond end of stream") + (scm-error err proc fmt args data)) + (set-max-page! paginator (get-max-page paginator)) (set-true-max-page! paginator) (throw 'max-page (get-max-page paginator)) |