...
 
Commits (4)
......@@ -16,7 +16,6 @@ AM_SCM_LOG_FLAGS = --no-auto-compile -L $(top_srcdir)
SOURCES = \
microkanren.scm \
htmlprag.scm \
wiredtiger/config.scm \
wiredtiger/wiredtiger.scm \
wiredtiger/extra.scm \
......
......@@ -40,7 +40,8 @@
(source (local-file %source-dir #:recursive? #t #:select? git-file?))
(build-system gnu-build-system)
(arguments
'(#:configure-flags
'(#:parallel-build? #f ;; the tests can not be run in parallel
#:configure-flags
(list (string-append "--with-libwiredtiger-prefix="
(assoc-ref %build-inputs "wiredtiger")))
#:make-flags '("GUILE_AUTO_COMPILE=0")
......@@ -57,7 +58,7 @@
`(("wiredtiger" ,wiredtiger)
("guile-lib" ,guile-lib)
("guile" ,guile-2.2)))
(synopsis "Wired Tiger bindings for GNU Guile")
(synopsis "Wiredtiger bindings for GNU Guile")
(description "wiredtiger bindings for guile")
(home-page "https://framagit.org/a-guile-mind/guile-wiredtiger.git")
(license gpl3+))
......@@ -429,14 +429,14 @@ a two values: the connection and a context"
(export with-cursor)
(define-syntax-rule (call-with-cursor name proc)
(define-public (call-with-cursor name proc)
"Call PROC with the cursor named NAME from the current context"
(let* ((context (fluid-ref *context*))
(cursor (context-ref context name)))
(let ((out (proc cursor)))
(cursor-reset cursor)
out)))
(export call-with-cursor)
(call-with-values (lambda () (proc cursor))
(lambda out
(cursor-reset cursor)
(apply values out)))))
(define-public (cursor-next* cursor)
"Move the cursor to the next result and return #t.
......