6 files changed, 0 insertions(+), 14 deletions(-)

M guix/build-system/cmake.scm
M guix/build-system/gnu.scm
M guix/build-system/perl.scm
M guix/build-system/python.scm
M guix/build-system/ruby.scm
M guix/build-system/trivial.scm

@@ 98,8 98,6 @@ provides a 'CMakeLists.txt' file as its build system."
     (match guile
       ((? package?)
        (package-derivation store guile system))
-      ((and (? string?) (? derivation-path?))
-       guile)
       (#f                                         ; the default
        (let* ((distro (resolve-interface '(gnu packages commencement)))
               (guile  (module-ref distro 'guile-final)))

@@ 344,8 344,6 @@ are allowed to refer to."
     (match guile
       ((? package?)
        (package-derivation store guile system))
-      ;; ((and (? string?) (? derivation-path?))
-      ;;  guile)
       (#f                                         ; the default
        (let* ((distro (resolve-interface '(gnu packages commencement)))
               (guile  (module-ref distro 'guile-final)))


@@ 530,8 528,6 @@ platform."
     (match guile
       ((? package?)
        (package-derivation store guile system))
-      ;; ((and (? string?) (? derivation-path?))
-      ;;  guile)
       (#f                                         ; the default
        (let* ((distro (resolve-interface '(gnu packages commencement)))
               (guile  (module-ref distro 'guile-final)))

@@ 90,8 90,6 @@ provides a `Makefile.PL' file as its build system."
     (match guile
       ((? package?)
        (package-derivation store guile system))
-      ((and (? string?) (? derivation-path?))
-       guile)
       (#f                                         ; the default
        (let* ((distro (resolve-interface '(gnu packages commencement)))
               (guile  (module-ref distro 'guile-final)))

@@ 138,8 138,6 @@ provides a 'setup.py' file as its build system."
     (match guile
       ((? package?)
        (package-derivation store guile system))
-      ((and (? string?) (? derivation-path?))
-       guile)
       (#f                                         ; the default
        (let* ((distro (resolve-interface '(gnu packages commencement)))
               (guile  (module-ref distro 'guile-final)))

@@ 77,8 77,6 @@
     (match guile
       ((? package?)
        (package-derivation store guile system))
-      ((and (? string?) (? derivation-path?))
-       guile)
       (#f
        (let* ((distro (resolve-interface '(gnu packages commencement)))
               (guile  (module-ref distro 'guile-final)))

@@ 29,8 29,6 @@
   (match guile
     ((? package?)
      (package-derivation store guile system))
-    ((and (? string?) (? derivation-path?))
-     guile)
     (#f                                         ; the default
      (let* ((distro (resolve-interface '(gnu packages commencement)))
             (guile  (module-ref distro 'guile-final)))