01/03: gnu: sbcl-cmd: Remove dead code.

[guix-commits]

glv pushed a commit to branch master
in repository guix.

commit 60528f9ba729f7a22180d3a93d18bbdb3cfb2783
Author: Matthew Kraai <kraai@ftbfs.org>
AuthorDate: Sat Jan 23 11:16:35 2021 +0100

    gnu: sbcl-cmd: Remove dead code.
    
    * gnu/packages/lisp-xyz.scm (sbcl-cmd)[arguments]: Remove dead code.
    
    Signed-off-by: Guillaume Le Vaillant <glv@posteo.net>
---
 gnu/packages/lisp-xyz.scm | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/gnu/packages/lisp-xyz.scm b/gnu/packages/lisp-xyz.scm
index 57d40da..7f5dfad 100644
--- a/gnu/packages/lisp-xyz.scm
+++ b/gnu/packages/lisp-xyz.scm
@@ -22,6 +22,7 @@
 ;;; Copyright © 2020, 2021 Adam Kandur <rndd@tuta.io>
 ;;; Copyright © 2020, 2021 Sharlatan Hellseher <sharlatanus@gmail.com>
 ;;; Copyright © 2021 Aurora <rind38@disroot.org>
+;;; Copyright © 2021 Matthew Kraai <kraai@ftbfs.org>
 ;;;
 ;;; This file is part of GNU Guix.
 ;;;
@@ -13224,9 +13225,8 @@ standard library.")
          (modify-phases %standard-phases
            (add-after 'unpack 'fix-paths
              (lambda* (#:key inputs #:allow-other-keys)
-               (let ((source (assoc-ref inputs "source"))
-                     (bin (string-append (assoc-ref inputs "coreutils") 
"/bin")))
-                 (substitute* (string-append "cmd.lisp")
+               (let ((bin (string-append (assoc-ref inputs "coreutils") 
"/bin")))
+                 (substitute* "cmd.lisp"
                    (("\"env\"") (format #f "\"~a/env\"" bin))
                    (("\"pwd\"") (format #f "\"~a/pwd\"" bin)))))))))
       (home-page "https://github.com/ruricolist/cmd";)