gnunet-svn
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[gnunet-scheme] 113/324: hat-let: Avoid having to import '_' from (rnrs


From: gnunet
Subject: [gnunet-scheme] 113/324: hat-let: Avoid having to import '_' from (rnrs base).
Date: Tue, 21 Sep 2021 13:22:33 +0200

This is an automated email from the git hooks/post-receive script.

maxime-devos pushed a commit to branch master
in repository gnunet-scheme.

commit 4d63566655a22ad88e37b6f1fed50641e44cd173
Author: Maxime Devos <maximedevos@telenet.be>
AuthorDate: Tue Jun 29 12:52:50 2021 +0200

    hat-let: Avoid having to import '_' from (rnrs base).
    
    * gnu/gnunet/utils/hat-let.scm
      (let^): Do not refer to the identifier '_' from (rnrs base).
---
 gnu/gnunet/utils/hat-let.scm | 12 +++++++++---
 1 file changed, 9 insertions(+), 3 deletions(-)

diff --git a/gnu/gnunet/utils/hat-let.scm b/gnu/gnunet/utils/hat-let.scm
index 8c6e468..b93d230 100644
--- a/gnu/gnunet/utils/hat-let.scm
+++ b/gnu/gnunet/utils/hat-let.scm
@@ -1,6 +1,6 @@
 ;;   This file is part of scheme-GNUnet, a partial Scheme port of GNUnet.
 ;;   Copyright (C) 2003, 2004, 2005, 2006, 2008, 2009, 2010 GNUnet e.V.
-;;   Copyright (C) 2020 Maxime Devos <maxime.devos@student.kuleuven.be>
+;;   Copyright (C) 2020, 2021 Maxime Devos <maximedevos@telenet.be>
 ;;
 ;;   scheme-GNUnet is free software: you can redistribute it and/or modify it
 ;;   under the terms of the GNU Affero General Public License as published
@@ -29,10 +29,16 @@
 ;;          Suggest the new <-- instead.
 ;;          <- might eventually be removed or be replaced
 ;;          with <--.
+;;   * (2 1): Refer to '_' as a symbol, not as the _ from
+;;            (rnrs base)
 
-(library (gnu gnunet utils hat-let (2))
+(library (gnu gnunet utils hat-let (2 1))
   (export let^)
-  (import (rnrs base))
+  ;; Avoid letting users of (gnu gnunet utils hat-let)
+  ;; having to import _ from (rnrs base).
+  (import (only (rnrs base)
+               define-syntax syntax-rules let if begin
+               lambda assert call-with-values ...))
 
   ;; A generalisation of let*, and-let*, receive, begin,
   ;; and generalised let for avoiding nesting.

-- 
To stop receiving notification emails like this one, please contact
gnunet@gnunet.org.



reply via email to

[Prev in Thread] Current Thread [Next in Thread]