mirror of
https://git.in.rschanz.org/ryan77627/guix.git
synced 2024-11-15 11:25:22 -05:00
5a3429bcc5
* gnu/packages/patches/guile-ssh-rexec-bug.patch: New file. * gnu/local.mk (dist_patch_DATA): Add it. * gnu/packages/ssh.scm (guile-ssh)[source](patches): New field.
16 lines
689 B
Diff
16 lines
689 B
Diff
Fix a bug whereby 'node-guile-version' would pass a node instead of
|
|
a session to 'rexec'.
|
|
|
|
diff --git a/modules/ssh/dist/node.scm b/modules/ssh/dist/node.scm
|
|
index 9c065c7..29a3906 100644
|
|
--- a/modules/ssh/dist/node.scm
|
|
+++ b/modules/ssh/dist/node.scm
|
|
@@ -411,7 +411,8 @@ procedure returns the 1st evaluated value if multiple values were returned."
|
|
"Get Guile version installed on a NODE, return the version string. Return
|
|
#f if Guile is not installed."
|
|
(receive (result rc)
|
|
- (rexec node "which guile > /dev/null && guile --version")
|
|
+ (rexec (node-session node)
|
|
+ "which guile > /dev/null && guile --version")
|
|
(and (zero? rc)
|
|
(car result))))
|