01/02: python-build-system: Fix 'get-python-version'.

[Mark H. Weaver]

mhw pushed a commit to branch master
in repository guix.

commit 9f6509c655b766b0fb9dfab181a8533e698473b0
Author: Mark H Weaver <address@hidden>
Date:   Wed Aug 5 04:12:14 2015 -0400

    python-build-system: Fix 'get-python-version'.
    
    * guix/build/python-build-system.scm (get-python-version): Rewrite to handle
      multiple-digit version number components.
---
 guix/build/python-build-system.scm |    5 ++++-
 1 files changed, 4 insertions(+), 1 deletions(-)

diff --git a/guix/build/python-build-system.scm 
b/guix/build/python-build-system.scm
index d008ac2..1ae42c0 100644
--- a/guix/build/python-build-system.scm
+++ b/guix/build/python-build-system.scm
@@ -55,7 +55,10 @@
     #t))
 
 (define (get-python-version python)
-  (string-take (string-take-right python 5) 3))
+  (let* ((version     (last (string-split python #\-)))
+         (components  (string-split version #\.))
+         (major+minor (take components 2)))
+    (string-join major+minor ".")))
 
 (define* (install #:key outputs inputs (configure-flags '())
                   #:allow-other-keys)