gnu: orc: Use 'modify-phases'.

* gnu/packages/gstreamer.scm (orc)[arguments]: Use the 'modify-phases'
syntax.
This commit is contained in:
Efraim Flashner 2016-09-06 08:47:22 +03:00
parent c6f0b0f603
commit 462b567650
No known key found for this signature in database
GPG key ID: F4C1D3917EACEE93

View file

@ -72,18 +72,18 @@ (define-public orc
(base32 (base32
"0jd69ynvr3k70mlxxgbsk047l1rd63m1wkj3qdcq7644xy0gllkx")))) "0jd69ynvr3k70mlxxgbsk047l1rd63m1wkj3qdcq7644xy0gllkx"))))
(build-system gnu-build-system) (build-system gnu-build-system)
(arguments `(#:phases (arguments
(alist-cons-before `(#:phases
'check 'disable-faulty-test (modify-phases %standard-phases
(lambda _ (add-before 'check 'disable-faulty-test
;; XXX Disable the 'test-limits' and 'exec_opcodes_sys' (lambda _
;; tests, which fail on some machines. See: ;; XXX Disable the 'test-limits' and 'exec_opcodes_sys'
;; https://bugzilla.gnome.org/show_bug.cgi?id=735273 ;; tests, which fail on some machines. See:
(substitute* '("testsuite/test-limits.c" ;; https://bugzilla.gnome.org/show_bug.cgi?id=735273
"testsuite/exec_opcodes_sys.c") (substitute* '("testsuite/test-limits.c"
(("if \\(error\\) return 1;") "testsuite/exec_opcodes_sys.c")
"if (error) return 77;"))) (("if \\(error\\) return 1;")
%standard-phases))) "if (error) return 77;")))))))
(home-page "http://code.entropywave.com/orc/") (home-page "http://code.entropywave.com/orc/")
(synopsis "Oil runtime compiler") (synopsis "Oil runtime compiler")
(description (description