summaryrefslogtreecommitdiff
path: root/examples
diff options
context:
space:
mode:
Diffstat (limited to 'examples')
-rw-r--r--examples/search.scm5
1 files changed, 3 insertions, 2 deletions
diff --git a/examples/search.scm b/examples/search.scm
index fee945e..e8f8aa5 100644
--- a/examples/search.scm
+++ b/examples/search.scm
@@ -25,7 +25,7 @@
(match record
((description title identifier) title)))
-(define* (search dbpath querystring #:key (offset 0) (pagesize 10))
+(define* (search dbpath querystring #:key (pagesize 10))
;; Open database for reading. call-with-database automatically
;; closes the database once we're done.
(call-with-database dbpath
@@ -49,7 +49,8 @@
;; Get an Enquire object from the database with the
;; search results. Then, extract the MSet from the
;; Enquire object.
- (enquire-mset (enquire db query) offset pagesize))))))
+ (enquire-mset (enquire db query)
+ #:maximum-items pagesize))))))
;; Handle command line arguments
(match (command-line)