From e314d587b88e78f19465a489421224dad66c8925 Mon Sep 17 00:00:00 2001
From: Ricardo Wurmus <rekado@elephly.net>
Date: Mon, 26 Apr 2021 00:18:41 +0200
Subject: guix: Use an older version of nyacc.

---
 guix.scm | 26 +++++++++++++++++++++++++-
 1 file changed, 25 insertions(+), 1 deletion(-)

diff --git a/guix.scm b/guix.scm
index c616028..9aafcfe 100644
--- a/guix.scm
+++ b/guix.scm
@@ -13,6 +13,30 @@
  (gnu packages texinfo)
  (gnu packages parallel))
 
+;; Later versions (such as 1.03.6) have a regression so that no
+;; #define'd symbols are recorded.
+(define-public nyacc-older
+  (package
+    (inherit nyacc-0.99)
+    (version "1.03.0")
+    (source (origin
+              (method url-fetch)
+              (uri (string-append "mirror://savannah/nyacc/nyacc-"
+                                  version ".tar.gz"))
+              (sha256
+               (base32
+                "1vdiqpm3p0ndmpmkzcpkpjvgklfsk4wxrhkixdxbczpafdfl635p"))
+              (modules '((guix build utils)))
+              (snippet
+               '(begin
+                  (substitute* "configure"
+                    (("GUILE_GLOBAL_SITE=\\$prefix.*")
+                     "GUILE_GLOBAL_SITE=\
+$prefix/share/guile/site/$GUILE_EFFECTIVE_VERSION\n"))
+                  #t))))
+    (inputs
+     `(("guile" ,guile-3.0)))))
+
 (package
   (name "guile-drmaa")
   (version "0.1")
@@ -29,7 +53,7 @@
    `(("guile" ,guile-3.0)))
   (propagated-inputs
    `(("guile-bytestructures" ,guile-bytestructures)
-     ("nyacc" ,nyacc)))
+     ("nyacc" ,nyacc-older)))
   (synopsis "")
   (description "")
   (home-page "")
-- 
cgit v1.2.3