From 06a0a886a03ef751eb068796a4aea37c57a6ebc6 Mon Sep 17 00:00:00 2001
From: Amirouche <address@hidden>
Date: Mon, 29 Apr 2019 16:27:08 +0200
Subject: [PATCH] gnu: Add guile-r7rs.

* gnu/packages/guile-xyz.scm (guile-r7rs): New variable.
---
 gnu/packages/guile-xyz.scm | 30 +++++++++++++++++++++++++++++-
 1 file changed, 29 insertions(+), 1 deletion(-)

diff --git a/gnu/packages/guile-xyz.scm b/gnu/packages/guile-xyz.scm
index 03fd63837e..d7866719b4 100644
--- a/gnu/packages/guile-xyz.scm
+++ b/gnu/packages/guile-xyz.scm
@@ -8,7 +8,7 @@
 ;;; Copyright © 2016 Eraim Flashner <address@hidden>
 ;;; Copyright © 2016, 2017 Alex Kost <address@hidden>
 ;;; Copyright © 2016, 2017 Adonay "adfeno" Felipe Nogueira <https://libreplanet.org/wiki/User:Adfeno> <address@hidden>
-;;; Copyright © 2016 Amirouche <address@hidden>
+;;; Copyright © 2016, 2019 Amirouche Boubekki <address@hidden>
 ;;; Copyright © 2016 Jan Nieuwenhuizen <address@hidden>
 ;;; Copyright © 2017 Andy Wingo <address@hidden>
 ;;; Copyright © 2017 David Thompson <address@hidden>
@@ -1550,6 +1550,34 @@ microAdapton.  Both miniAdapton and microAdapton are designed to be easy to
 understand, extend, and port to host languages other than Scheme.")
       (license license:expat))))
 
+(define-public guile-r7rs
+  (let ((commit "ea053dc524abb5e9e0d0ea7fc2da364acd21d731"))
+    (package
+      (name "guile-r7rs")
+      (version "0.1.0")
+      (source (origin
+                (method git-fetch)
+                (uri (git-reference
+                      (url "https://git.sr.ht/~amz3/guile-r7rs")
+                      (commit commit)))
+                (file-name (string-append name "-" version "-checkout"))
+                (sha256
+                 (base32
+                  "0382flp13n9wgzhx8rrw4ldy2mac4mmzqij8zvclarc32d9mq0mp"))))
+      (build-system gnu-build-system)
+      (native-inputs
+       `(("autoconf" ,autoconf)
+         ("automake" ,automake)
+         ("pkg-config" ,pkg-config)))
+      (inputs
+       `(("guile" ,guile-2.2)))
+      (propagated-inputs
+       `(("guile-pfds" ,guile-pfds)))
+      (home-page "https://git.sr.ht/~amz3/guile-r7rs")
+      (synopsis "R7RS libraries for GNU Guile.")
+      (description "R7RS libraries for GNU Guile.")
+      (license license:lgpl3+))))
+
 (define-public guile-reader
   (package
     (name "guile-reader")
-- 
2.19.1