diff --git a/gnu/packages/databases.scm b/gnu/packages/databases.scm
index 38ca5708d..604b74aa2 100644
diff --git a/gnu/packages/databases.scm b/gnu/packages/databases.scm
index 38ca5708d..604b74aa2 100644
--- a/gnu/packages/databases.scm
+++ b/gnu/packages/databases.scm
@@ -56,6 +56,7 @@
#:use-module (gnu packages gettext)
#:use-module (gnu packages glib)
#:use-module (gnu packages gnupg)
+ #:use-module (gnu packages guile)
#:use-module (gnu packages time)
#:use-module (gnu packages jemalloc)
#:use-module (gnu packages language)
@@ -1495,6 +1496,43 @@ trees (LSM), for sustained throughput under random insert workloads.")
;; configure.ac: WiredTiger requires a 64-bit build.
(supported-systems '("x86_64-linux" "mips64el-linux" "aarch64-linux"))))
+(define guile-wiredtiger
+ (package
+ (name "guile-wiredtiger")
+ (version "20171113.6cbc51da")
+ (source (origin
+ (method git-fetch)
+ (uri (git-reference
+ (url "https://framagit.org/a-guile-mind/guile-wiredtiger.git")
+ (commit "6cbc51dab95d28fe31ae025fbdd88f3ecbf2111b")))
+ (file-name (string-append name "-" version "-checkout"))
+ (sha256
+ (base32
+ "0x3qwpgch5pg0k21kc792h4y6b36a8xd1zkfq8ar2l2mqmpzkzyd"))))
+ (build-system gnu-build-system)
+ (arguments
+ '(#:tests? #f
+ #:configure-flags
+ (list (string-append "--with-libwiredtiger-prefix="
+ (assoc-ref %build-inputs "wiredtiger")))
+ #:make-flags '("GUILE_AUTO_COMPILE=0")
+ #:phases
+ (modify-phases %standard-phases
+ (add-after 'unpack 'bootstrap
+ (lambda _ (zero? (system* "sh" "bootstrap")))))))
+ (native-inputs
+ `(("autoconf" ,autoconf)
+ ("automake" ,automake)
+ ("pkg-config" ,pkg-config)))
+ (inputs
+ `(("wiredtiger" ,wiredtiger)
+ ("guile-lib" ,guile-lib)
+ ("guile" ,guile-2.2)))
+ (synopsis "Wired Tiger bindings for GNU Guile")
+ (description "Wired Tiger bindings for GNU Guile")
+ (home-page "https://framagit.org/a-guile-mind/guile-wiredtiger")
+ (license gpl3+)))
+
(define-public perl-db-file
Add a code snippet to your website: www.paste.org