[PATCH] fix python

["Alírio Eyng" <alirioeyng@gmail.com>]

This fixes 'OSError: out of pty devices' with '#
CONFIG_DEVPTS_MULTIPLE_INSTANCES is not set'

From 0757ec00fa23ed82b14e272b6329f6d89e2f5dd2 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Al=C3=ADrio=20Eyng?= <alirioeyng@gmail.com>
Date: Fri, 4 Apr 2014 08:28:02 +0000
Subject: [PATCH] gnu: python: Revert "gnu: Remove unused lambda arguments and
 prefer separate phases over augmented phases."

* gnu/packages/python.scm (python): Revert commit
d4bf49b140bd5cfb3580d2a038679160dc1331b5.
---
 gnu/packages/python.scm | 23 ++++++++++++-----------
 1 file changed, 12 insertions(+), 11 deletions(-)

diff --git a/gnu/packages/python.scm b/gnu/packages/python.scm
index bc56d7a..01de2f6 100644
--- a/gnu/packages/python.scm
+++ b/gnu/packages/python.scm
@@ -139,17 +139,18 @@
              (with-directory-excursion out
                (for-each (cut augment-rpath <> lib)
                          (find-files "bin" ".*")))))
-         (alist-cons-before
-          'configure 'patch-lib-shells
-          (lambda _
-            ;; Filter for existing files, since some may not exist in all
-            ;; versions of python that are built with this recipe.
-            (substitute* (filter file-exists?
-                                 '("Lib/subprocess.py"
-                                   "Lib/popen2.py"
-                                   "Lib/distutils/tests/test_spawn.py"
-                                   "Lib/test/test_subprocess.py"))
-              (("/bin/sh") (which "sh"))))
+         (alist-replace
+          'configure
+          (lambda* (#:key outputs #:allow-other-keys #:rest args)
+            (let ((configure (assoc-ref %standard-phases 'configure)))
+             (substitute* "Lib/subprocess.py"
+               (("args = \\[\"/bin/sh")
+                (string-append "args = [\"" (which "sh"))))
+             (substitute*
+               '("Lib/distutils/tests/test_spawn.py"
+                 "Lib/test/test_subprocess.py")
+               (("/bin/sh") (which "sh")))
+             (apply configure args)))
           (alist-cons-before
            'check 'pre-check
            (lambda _
-- 
1.8.4