diff options
author | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-08-10 16:06:33 +0200 |
---|---|---|
committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-08-10 16:06:33 +0200 |
commit | 3d2c2ba29c7fa6854e3734ce3d8635a37b6ecc2a (patch) | |
tree | b2b57154b35d8baa43ece77a2d891020f92a76f1 /module/vcomponent/search.scm | |
parent | Simplify term input. (diff) | |
download | calp-3d2c2ba29c7fa6854e3734ce3d8635a37b6ecc2a.tar.gz calp-3d2c2ba29c7fa6854e3734ce3d8635a37b6ecc2a.tar.xz |
Start breaking apart HTML modules.
Diffstat (limited to 'module/vcomponent/search.scm')
-rw-r--r-- | module/vcomponent/search.scm | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/module/vcomponent/search.scm b/module/vcomponent/search.scm index 4e604d89..15ff0720 100644 --- a/module/vcomponent/search.scm +++ b/module/vcomponent/search.scm @@ -155,6 +155,7 @@ (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) (set-max-page! paginator (get-max-page paginator)) (set-true-max-page! paginator) |