[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[gnunet-scheme] 03/03: tests/config-parser: Use R7RS symbols instead of
From: |
gnunet |
Subject: |
[gnunet-scheme] 03/03: tests/config-parser: Use R7RS symbols instead of Guile's syntax. |
Date: |
Tue, 06 Sep 2022 16:50:38 +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 f5dc44e66373c29f1c84ea89d8080939a8dfbfd2
Author: Maxime Devos <maximedevos@telenet.be>
AuthorDate: Tue Sep 6 16:50:04 2022 +0200
tests/config-parser: Use R7RS symbols instead of Guile's syntax.
More standard! Also, works-around
<https://debbugs.gnu.org/cgi/bugreport.cgi?bug=49623>.
* tests/config-parser.scm: Use the R7RS symbol syntax.
---
tests/config-parser.scm | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/tests/config-parser.scm b/tests/config-parser.scm
index 214157a..144466f 100644
--- a/tests/config-parser.scm
+++ b/tests/config-parser.scm
@@ -1,5 +1,5 @@
;; This file is part of scheme-GNUnet.
-;; Copyright (C) 2021 GNUnet e.V.
+;; Copyright © 2021--2022 GNUnet e.V.
;;
;; 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
@@ -325,7 +325,7 @@ If so, return the last object in @var{expos}. Otherwise,
return
(char-set->arbitrary (string->char-set "${:-}ab")))
(define-syntax-rule ($choose-with-eq? x ...)
($choose ((cute eq? x) ($const x)) ...))
-(define $nested ($choose-with-eq? #f '|${}| '#{${:-}}#))
+(define $nested ($choose-with-eq? #f '|${}| '|${:-}|))
(define-syntax-rule (true-if-parse-error exp exp* ...)
(with-exception-handler
--
To stop receiving notification emails like this one, please contact
gnunet@gnunet.org.