gnu: sicp: Update to 20180718-2.bda03f7.

* gnu/packages/scheme.scm (sicp): Update to 20180718-2.bda03f7.
  [version]: Use git-version function.
  [source]: Use git-file-name function.
  [arguments]: Remove trailing `#t`.

Signed-off-by: Guillaume Le Vaillant <glv@posteo.net>
This commit is contained in:
jgart 2022-03-16 00:18:08 -04:00 committed by Guillaume Le Vaillant
parent a7b40dff2f
commit bae2201a8d
No known key found for this signature in database
GPG key ID: 6BE8208ADF21FE3F

View file

@ -18,6 +18,7 @@
;;; Copyright © 2021 Guillaume Le Vaillant <glv@posteo.net> ;;; Copyright © 2021 Guillaume Le Vaillant <glv@posteo.net>
;;; Copyright © 2021 Foo Chuan Wei <chuanwei.foo@hotmail.com> ;;; Copyright © 2021 Foo Chuan Wei <chuanwei.foo@hotmail.com>
;;; Copyright © 2022 Morgan Smith <Morgan.J.Smith@outlook.com> ;;; Copyright © 2022 Morgan Smith <Morgan.J.Smith@outlook.com>
;;; Copyright © 2022 jgart <jgart@dismail.de>
;;; ;;;
;;; This file is part of GNU Guix. ;;; This file is part of GNU Guix.
;;; ;;;
@ -470,10 +471,11 @@ (define-public chibi-scheme
(license bsd-3))) (license bsd-3)))
(define-public sicp (define-public sicp
(let ((commit "225c172f9b859902a64a3c5dd5e1f9ac1a7382de")) (let ((commit "bda03f79d6e2e8899ac2b5ca6a3732210e290a79")
(revision "2"))
(package (package
(name "sicp") (name "sicp")
(version (string-append "20170703-1." (string-take commit 7))) (version (git-version "20180718" revision commit))
(source (origin (source (origin
(method git-fetch) (method git-fetch)
(uri (git-reference (uri (git-reference
@ -481,8 +483,8 @@ (define-public sicp
(commit commit))) (commit commit)))
(sha256 (sha256
(base32 (base32
"0bhdrdc1mgdjdsg4jksq9z6x129f3346jbf3zir2a0dfmsj6m10n")) "0mng7qrj2dvssyffr9ycnf4a5k0kadp4dslq7mc5bhzq1qxyjs2w"))
(file-name (string-append name "-" version "-checkout")))) (file-name (git-file-name name version))))
(build-system trivial-build-system) (build-system trivial-build-system)
(native-inputs `(("gzip" ,gzip) (native-inputs `(("gzip" ,gzip)
("source" ,source) ("source" ,source)
@ -506,8 +508,7 @@ (define-public sicp
(string-append info-dir "/sicp.info") (string-append info-dir "/sicp.info")
(string-append source "/sicp-pocket.texi")) (string-append source "/sicp-pocket.texi"))
(for-each (cut invoke "gzip" "-9n" <>) (for-each (cut invoke "gzip" "-9n" <>)
(find-files info-dir)) (find-files info-dir))))))
#t))))
(home-page "https://sarabander.github.io/sicp") (home-page "https://sarabander.github.io/sicp")
(synopsis "Structure and Interpretation of Computer Programs") (synopsis "Structure and Interpretation of Computer Programs")
(description "Structure and Interpretation of Computer Programs (SICP) is (description "Structure and Interpretation of Computer Programs (SICP) is