me
/
guix
Archived
1
0
Fork 0
Code

gnu: pd: Update to 0.49-0. 

* gnu/packages/music.scm (pd): Update to 0.49-0.
master
宋文武 2018-10-07 14:55:55 +08:00
parent ccfac015bf
commit 96808b39e7
No known key found for this signature in database
GPG Key ID: 26525665AE727D37
1 changed files with 9 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
gnu/packages/music.scm
View File

@ -1726,7 +1726,7 @@ export.")
(define-public pd (define-public pd
(package (package
(name "pd") (name "pd")
(version "0.47-1") (version "0.49-0")
(source (origin (source (origin
(method url-fetch) (method url-fetch)
(uri (uri
@ -1734,16 +1734,20 @@ export.")
version ".src.tar.gz")) version ".src.tar.gz"))
(sha256 (sha256
(base32 (base32
"0k5s949kqd7yw97h3m8z81bjz32bis9m4ih8df1z0ymipnafca67")))) "18rzqbpgnnvyslap7k0ly87aw1bbxkb0rk5agpr423ibs9slxq6j"))))
(build-system gnu-build-system) (build-system gnu-build-system)
(arguments (arguments
`(#:tests? #f ; no "check" target `(#:tests? #f ; no "check" target
#:configure-flags
(list
"--enable-jack"
(string-append "--with-wish=" (string-append
(assoc-ref %build-inputs "tk")
"/bin/wish8.6")))
#:phases #:phases
(modify-phases %standard-phases (modify-phases %standard-phases
(add-before 'configure 'fix-wish-path (add-before 'configure 'fix-with-path
(lambda _ (lambda _
(substitute* "src/s_inter.c"
((" wish ") (string-append " " (which "wish8.6") " ")))
(substitute* "tcl/pd-gui.tcl" (substitute* "tcl/pd-gui.tcl"
(("exec wish ") (string-append "exec " (which "wish8.6") " "))) (("exec wish ") (string-append "exec " (which "wish8.6") " ")))
#t)) #t))