From 7afbaefea0888d0bf083051d46da88e347573838 Mon Sep 17 00:00:00 2001
From: Martin Becze <mjbecze@riseup.net>
Date: Sun, 23 Aug 2020 13:56:39 -0500
Subject: gnu: Added guile-srfi-145.

* gnu/packages/guile-xyz.scm (guile-srfi-145): New variable.

Signed-off-by: Leo Famulari <leo@famulari.name>
---
 gnu/packages/guile-xyz.scm | 24 ++++++++++++++++++++++++
 1 file changed, 24 insertions(+)

(limited to 'gnu')

diff --git a/gnu/packages/guile-xyz.scm b/gnu/packages/guile-xyz.scm
index 7f7b8f0ee0..b8c104993f 100644
--- a/gnu/packages/guile-xyz.scm
+++ b/gnu/packages/guile-xyz.scm
@@ -2803,6 +2803,30 @@ pre-alpha code.")
 parameters, which  define* and lambda* special forms")
     (license license:gpl3+)))
 
+(define-public guile-srfi-145
+  (package
+    (name "guile-srfi-145")
+    (version "0.0.1")
+    (source
+     (origin
+       (method git-fetch)
+       (uri (git-reference
+             (url "https://gitlab.com/mjbecze/guile-srfi-145.git")
+             (commit version)))
+       (sha256
+         (base32
+           "1gssa8cmcp8640fil9z8dpil8v5l279wlalqjcx3fls5jwv13q1b"))
+       (file-name (git-file-name name version))))
+    (build-system guile-build-system)
+    (native-inputs
+     `(("guile" ,guile-3.0)))
+    (home-page "https://gitlab.com/mjbecze/guile-srfi-145")
+    (synopsis "SRFI-145 port for Guile")
+    (description
+     "This package provides SRFI-145.  This provides the means to
+denote the invalidity of certain code paths in a Scheme program.")
+    (license license:gpl3+)))
+
 (define-public guile-srfi-159
   (let ((commit "1bd98abda2ae4ef8f36761a167903e55c6bda7bb")
         (revision "0"))
-- 
cgit v1.2.3

ass='form'><form class='right' method='get' action='/guix/log/tests/guix-download.sh'>
<input type='hidden' name='id' value='58a2c8084c66d9949933950fbf316eb95a46b1a4'/><select name='qt'>
<option value='grep'>log msg</option>
<option value='author'>author</option>
<option value='committer'>committer</option>
<option value='range'>range</option>
</select>
<input class='txt' type='search' size='10' name='q' value=''/>
<input type='submit' value='search'/>
</form>
</td></tr></table>
<div class='path'>path: <a href='/guix/log/?id=58a2c8084c66d9949933950fbf316eb95a46b1a4'>root</a>/<a href='/guix/log/tests?id=58a2c8084c66d9949933950fbf316eb95a46b1a4'>tests</a>/<a href='/guix/log/tests/guix-download.sh?id=58a2c8084c66d9949933950fbf316eb95a46b1a4'>guix-download.sh</a></div><div class='content'><table class='list nowrap'><tr class='nohover'><th class='left'>Age</th><th class='left'>Commit message (<a href='/guix/log/tests/guix-download.sh?id=58a2c8084c66d9949933950fbf316eb95a46b1a4&amp;showmsg=1'>Expand</a>)</th><th class='left'>Author</th></tr>
<tr><td><span title='2017-08-20 20:55:45 +0800'>2017-08-20</span></td><td><a href='/guix/commit/tests/guix-download.sh?id=a02967d77af03d6468e25d6e26dbea0db919ce96'>guix download: Support retrieving local file without the URI scheme.</a><span class='msg-avail'>...<span class='msg-tooltip'>* guix/scripts/download.scm (guix-download): Treat the URL argument as a local
file path when it fails on 'string-&gt;uri'.  Call 'fetch' with the processed
'uri' instead of the original URL argument.
* tests/guix-download.sh: Adjust accordingly.
</span></span></td><td>宋文武</td></tr>
<tr><td><span title='2016-11-16 18:00:41 +0100'>2016-11-16</span></td><td><a href='/guix/commit/tests/guix-download.sh?id=1bcc87bb685b7985512add221f10e4cb58b5f6f7'>guix download: Add '-o' option.</a><span class='msg-avail'>...<span class='msg-tooltip'>* guix/scripts/download.scm (download-to-file, download-to-store*): New
procedures.
(%default-options): Add 'download-proc'.
(show-help): Adjust description and document '-o'.
(%options): Add '-o'.
(guix-download): Remove 'store' variable.  Add 'fetch' and define 'path'
to as its result.
* tests/guix-download.sh: Add test.
</span></span></td><td>Ludovic Courtès</td></tr>