gwl-devel
[Top][All Lists]
Advanced

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

Re: GWL 0.5 fails with plain packages


From: Olivier Dion
Subject: Re: GWL 0.5 fails with plain packages
Date: Fri, 29 Jul 2022 11:40:02 -0400

Please try the following patch:
--8<---------------cut here---------------start------------->8---
diff --git a/gwl/processes.scm b/gwl/processes.scm
index 2452d1f..4207f51 100644
--- a/gwl/processes.scm
+++ b/gwl/processes.scm
@@ -197,12 +197,21 @@
             ((and (? string?) spec)
              (lookup-package spec))
             ((and (? valid-package?) pkg)
+             (set! (package-output pkg) "out")
+             pkg)
+            (((? valid-package? pkg) (? string? output))
+             (set! (package-output pkg) output)
              pkg)
             (x
              (raise
               (condition
                (&gwl-type-error
-                (expected-type (list "<package>" "<inferior-package>" 
"<string>"))
+                (expected-type
+                 (list "<package>"
+                       "<inferior-package>"
+                       "<string>"
+                       "(<package> <string>)"
+                       "(inferior-package> <string>)"))
                 (actual-value x))))))
           value)))
   (inputs
--8<---------------cut here---------------end--------------->8---
-- 
Olivier Dion
oldiob.dev



reply via email to

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