me/guix
Archived
1
0
Fork 0
Code Activity

gnu: libtocc: Return #t from all phases.

Browse source 
* gnu/packages/search.scm (libtocc)[arguments]: Substitute INVOKE for
SYSTEM*. Return #t rather than undefined from phases. Re-indent.
This commit is contained in:
Tobias Geerinckx-Rice 2018-06-22 21:28:16 +02:00
parent 642d2db55a
commit 9947dcd746
No known key found for this signature in database
GPG key ID: 0DB0FF884F556D79
1 changed files with 18 additions and 18 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

36
gnu/packages/search.scm
View file

@ -126,24 +126,24 @@ rich set of boolean query operators.")
(inputs `(("unqlite" ,unqlite)))
(arguments
`(#:phases (modify-phases %standard-phases
(add-before
'configure 'chdir-source
(lambda _ (chdir "libtocc/src")))
(replace
'check
(lambda _
(with-directory-excursion "../tests"
(and (zero? (system* "./configure"
(string-append "CONFIG_SHELL="
(which "sh"))
(string-append "SHELL="
(which "sh"))
"CPPFLAGS=-I../src"
(string-append
"LDFLAGS=-L../src/.libs "
"-Wl,-rpath=../src/.libs")))
(zero? (system* "make"))
(zero? (system* "./libtocctests")))))))))
(add-before 'configure 'chdir-source
(lambda _
(chdir "libtocc/src")
#t))
(replace 'check
(lambda _
(with-directory-excursion "../tests"
(invoke "./configure"
(string-append "CONFIG_SHELL="
(which "sh"))
(string-append "SHELL="
(which "sh"))
"CPPFLAGS=-I../src"
(string-append
"LDFLAGS=-L../src/.libs "
"-Wl,-rpath=../src/.libs"))
(invoke "make")
(invoke "./libtocctests")))))))
(home-page "https://t-o-c-c.com/")
(synopsis "Tool for Obsessive Compulsive Classifiers")
(description