bug#42771: [PATCH] Disable tests for smalltalk and add candidate releases

2021-01-03 Thread Holger Peters 
Hi,

I am not sure I will have the time to solve the remaining issues,
but I would like to share some intermediate results with you.
Find attached the smalltalk file I have in my personal channel,
it contains 2 package definitions.

smalltalk-alt: corresponds to the `normal' smalltalk package with
various fixes over the one currently in gui (a) added
dependencies, (b) uses gcc-5 for building because I found a
reference in the smalltalk mailing list about newer GCC
releases optimizing some statements away that are crucial for
GNU Smalltalk to build.

As a result the test failures for intmath and others that are
present in the current `smalltalk' recipe in guix are
resolved in this variant.

Note that there are still failing tests for this release,
namely all the ANSI compliancy tests. I do feel like since
each and every one of these tests fails, it might be a
build-system-setup/autotest related failure.

`smalltalk-next' is a derived clean build from the VCS. I dropped
the pre-release build as you suggested in (2).


As for going forward I am not quite sure whether I'll find time
to do more debugging.  If I were a heavy GNU Smalltalk user I'd
probably use `smalltalk-next' anyway as it seems to build
flawlessly.


-- Failing Tests for `smalltalk-alt'

ANSI compliancy tests.

 47: ArrayANSITest   FAILED
(testsuite.at:83)
 48: ArrayFactoryANSITestFAILED
(testsuite.at:84)
 49: BagANSITest FAILED
(testsuite.at:85)
 50: BagFactoryANSITest  FAILED
(testsuite.at:86)
 51: BooleanANSITest FAILED
(testsuite.at:87)
 52: ByteArrayANSITest   FAILED
(testsuite.at:88)
 53: ByteArrayFactoryANSITestFAILED
(testsuite.at:89)
 54: CharacterANSITest   FAILED
(testsuite.at:90)
 55: CharacterFactoryANSITestFAILED
(testsuite.at:91)
 56: DateAndTimeANSITest FAILED
(testsuite.at:92)
 57: DateAndTimeFactoryANSITest  FAILED
(testsuite.at:93)
 58: DictionaryANSITest  FAILED
(testsuite.at:94)
 59: DictionaryFactoryANSITest   FAILED
(testsuite.at:95)
 60: DurationANSITestFAILED
(testsuite.at:96)
 61: DurationFactoryANSITest FAILED
(testsuite.at:97)
 62: DyadicValuableANSITest  FAILED
(testsuite.at:98)
 63: ErrorANSITest   FAILED
(testsuite.at:99)
 64: ErrorClassANSITest  FAILED
(testsuite.at:100)
 65: ExceptionANSITest   FAILED
(testsuite.at:101)
 66: ExceptionClassANSITest  FAILED
(testsuite.at:102)
 67: ExceptionSetANSITestFAILED
(testsuite.at:103)
 68: FailedMessageANSITest   FAILED
(testsuite.at:104)
 69: FileStreamFactoryANSITest   FAILED
(testsuite.at:105)
 70: FloatANSITest   FAILED
(testsuite.at:106)
 71: FloatCharacterizationANSITest   FAILED
(testsuite.at:107)
 72: FractionANSITestFAILED
(testsuite.at:108)
 73: FractionFactoryANSITest FAILED
(testsuite.at:109)
 74: IdentityDictionaryANSITest  FAILED
(testsuite.at:110)
 75: IdentityDictionaryFactoryANSITest   FAILED
(testsuite.at:111)
 76: IntegerANSITest FAILED
(testsuite.at:112)
 77: IntervalANSITestFAILED
(testsuite.at:113)
 78: IntervalFactoryANSITest FAILED
(testsuite.at:114)
 79: MessageNotUnderstoodANSITestFAILED
(testsuite.at:115)
 80: MessageNotUnderstoodSelectorANSITestFAILED
(testsuite.at:116)
 81: MonadicBlockANSITestFAILED
(testsuite.at:117)
 82: NilANSITest FAILED
(testsuite.at:118)
 83: NiladicBlockANSITestFAILED
(testsuite.at:119)
 84: NotificationANSITestFAILED
(testsuite.at:120)
 85: NotificationClassANSITest   FAILED
(testsuite.at:121)
 86: ObjectANSITest  FAILED
(testsuite.at:122)
 87: ObjectClassANSITest FAILED
(testsuite.at:123)
 88: OrderedCollectionANSITest   FAILED
(testsuite.at:124)
 89: OrderedCollectionFactoryANSITestFAILED
(testsuite.at:125)
 90: ReadFileStreamANSITest  FAILED
(testsuite.at:126)
 91: ReadStreamANSITest  FAILED
(testsuite.at:127)
 92: ReadStreamFactoryANSITest   FAILED
(testsuite.at:128)
 93: ReadWriteStreamANSITest

bug#42771: [PATCH] Disable tests for smalltalk and add candidate releases

2020-12-05 Thread Ludovic Courtès 
Hi Holger,

Holger Peters  skribis:

> * gnu/packages/smalltalk.scm (smalltalk): disable tests
> (smalltalk-next): New variable.
> (smalltalk-next-from-vcs): New variable.

I have mostly two comments, as discussed on IRC (restating them here for
those following along):

  1. Instead of disabling tests wholesale, what we usually do is (1)
 investigate why the test is failing (I think it’s a single test
 failure here), (2) try to determine whether it’s serious or not,
 (3) see if we can work around it with reasonable effort, and if
 not, skip just this test.

  2. I think we should just have ‘smalltalk’ (latest release) and
 ‘smalltalk-next’ (VCS snapshot).  Having an extra package for the
 release candidate is not really useful IMO, and not something we
 generally do.

HTH!

Ludo’.

bug#42771: [PATCH] Disable tests for smalltalk and add candidate releases

2020-12-04 Thread Holger Peters 
Investigating the test failures, I found 
https://lists.gnu.org/archive/html/help-smalltalk/2015-02/msg1.html 
 which 
is the reference in gnu smalltalk mailinglists that matches the observed test 
failures when I build on my machine.

> Am 28.11.2020 um 23:09 schrieb Holger Peters :
> 
> Last stable GNU smalltalk release dates back to 2013-04-08.  Disabled tests as
> they were also failing for my non-guix build.  Also added the latest alpha
> release as `smalltalk-next` and a build from vcs where we actually pass the
> tests.
> 
> * gnu/packages/ruby.scm (smalltalk): Disable tests
> (smalltalk-next): New variable.
> (smalltalk-next-from-vcs): New variable.
> ---
> gnu/packages/smalltalk.scm | 63 +-
> 1 file changed, 62 insertions(+), 1 deletion(-)
> 
> diff --git a/gnu/packages/smalltalk.scm b/gnu/packages/smalltalk.scm
> index 5d35f563e2..c96f4b1730 100644
> --- a/gnu/packages/smalltalk.scm
> +++ b/gnu/packages/smalltalk.scm
> @@ -24,20 +24,26 @@
>   #:use-module ((guix licenses) #:prefix license:)
>   #:use-module (guix packages)
>   #:use-module (guix download)
> +  #:use-module (guix git-download)
>   #:use-module (guix build-system cmake)
>   #:use-module (guix build-system gnu)
>   #:use-module (gnu packages audio)
>   #:use-module (gnu packages autotools)
>   #:use-module (gnu packages base)
> +  #:use-module (gnu packages bison)
>   #:use-module (gnu packages compression)
> +  #:use-module (gnu packages flex)
>   #:use-module (gnu packages fontutils)
> +  #:use-module (gnu packages gettext)
>   #:use-module (gnu packages gl)
>   #:use-module (gnu packages glib)
>   #:use-module (gnu packages libffi)
>   #:use-module (gnu packages libsigsegv)
>   #:use-module (gnu packages linux)
> +  #:use-module (gnu packages perl)
>   #:use-module (gnu packages pkg-config)
>   #:use-module (gnu packages pulseaudio)
> +  #:use-module (gnu packages texinfo)
>   #:use-module (gnu packages xorg))
> 
> (define-public smalltalk
> @@ -61,7 +67,8 @@
> (inputs
>  `(("zip" ,zip)))
> (arguments
> - `(#:phases
> + `(#:tests? #f  ; failing tests, 3.2.5 has been released years ago
> +   #:phases
>(modify-phases %standard-phases
>  (add-before 'configure 'fix-libc
>(lambda _
> @@ -145,3 +152,57 @@ also includes a customisable framework for creating 
> dynamic HTTP servers and
> interactively extensible Web sites.")
> (home-page "http://squeakvm.org/;)
> (license license:x11)))
> +
> +;;; alpha release
> +(define-public smalltalk-next
> +  (package (inherit smalltalk)
> +(name "smalltalk-next")
> +(version "3.2.91")
> +(source
> + (origin
> +   (method url-fetch)
> +   (uri (string-append "https://alpha.gnu.org/gnu/smalltalk/smalltalk-;
> +   version ".tar.xz"))
> +   (sha256
> +(base32 "1zb2h5cbz1cwybqjl24lflw359lwj7sjvvhwb4x6miypzhwq4qh0"))
> +
> +;;; This version from the main development branch can be built with passing
> +;;; tests
> +(define-public smalltalk-next-from-vcs
> +  (let ((revision "18")
> +(commit "dfe4b5660037c4d178853ee00458a75e51a88563")
> +(git-url "git://git.sv.gnu.org/smalltalk.git"))
> +(package (inherit smalltalk)
> +  (name "smalltalk-next-from-vcs")
> +  (version (git-version "3.2.91" revision commit))
> +  (source (origin
> +(method git-fetch)
> +(uri (git-reference
> +  (url git-url)
> +  (commit commit)))
> +(file-name (git-file-name name version))
> +(sha256 (base32 
> "11dm1qricq7fwn1gfyn9ik7f1axw7l3ivipsh11dywa42pmb5j2r"
> +  (native-inputs
> +   `(("autoconf" ,autoconf)
> + ("automake" ,automake)
> + ("libtool" ,libtool)
> + ("flex" ,flex)
> + ("texinfo" ,texinfo)
> + ("perl" ,perl)
> + ("gettext" ,gettext-minimal)
> + ("libffi" ,libffi)
> + ("libltdl" ,libltdl)
> + ("bison" ,bison)
> + ("libsigsegv" ,libsigsegv)
> + ("pkg-config" ,pkg-config)))
> +  (arguments
> +   `(#:phases
> + (modify-phases %standard-phases
> +   (add-before 'configure 'fix-libc
> + (lambda _
> +   (let ((libc (assoc-ref %build-inputs "libc")))
> + (substitute* "libc.la.in"
> +   (("@LIBC_SO_NAME@") "libc.so")
> +   (("@LIBC_SO_DIR@")  (string-append libc "/lib"
> +   #t
> +
> -- 
> 2.28.0
>

bug#42771: [PATCH] Disable tests for smalltalk and add candidate releases

2020-12-04 Thread Holger Peters 
Update: Better upstream reference, I will try to include a patch.



> Am 04.12.2020 um 12:34 schrieb Holger Peters :
> 
> Investigating the test failures, I found 
> https://lists.gnu.org/archive/html/help-smalltalk/2015-02/msg1.html 
>  
> which is the reference in gnu smalltalk mailinglists that matches the 
> observed test failures when I build on my machine.
> 
>> Am 28.11.2020 um 23:09 schrieb Holger Peters > >:
>> 
>> Last stable GNU smalltalk release dates back to 2013-04-08.  Disabled tests 
>> as
>> they were also failing for my non-guix build.  Also added the latest alpha
>> release as `smalltalk-next` and a build from vcs where we actually pass the
>> tests.
>> 
>> * gnu/packages/ruby.scm (smalltalk): Disable tests
>> (smalltalk-next): New variable.
>> (smalltalk-next-from-vcs): New variable.
>> ---
>> gnu/packages/smalltalk.scm | 63 +-
>> 1 file changed, 62 insertions(+), 1 deletion(-)
>> 
>> diff --git a/gnu/packages/smalltalk.scm b/gnu/packages/smalltalk.scm
>> index 5d35f563e2..c96f4b1730 100644
>> --- a/gnu/packages/smalltalk.scm
>> +++ b/gnu/packages/smalltalk.scm
>> @@ -24,20 +24,26 @@
>>   #:use-module ((guix licenses) #:prefix license:)
>>   #:use-module (guix packages)
>>   #:use-module (guix download)
>> +  #:use-module (guix git-download)
>>   #:use-module (guix build-system cmake)
>>   #:use-module (guix build-system gnu)
>>   #:use-module (gnu packages audio)
>>   #:use-module (gnu packages autotools)
>>   #:use-module (gnu packages base)
>> +  #:use-module (gnu packages bison)
>>   #:use-module (gnu packages compression)
>> +  #:use-module (gnu packages flex)
>>   #:use-module (gnu packages fontutils)
>> +  #:use-module (gnu packages gettext)
>>   #:use-module (gnu packages gl)
>>   #:use-module (gnu packages glib)
>>   #:use-module (gnu packages libffi)
>>   #:use-module (gnu packages libsigsegv)
>>   #:use-module (gnu packages linux)
>> +  #:use-module (gnu packages perl)
>>   #:use-module (gnu packages pkg-config)
>>   #:use-module (gnu packages pulseaudio)
>> +  #:use-module (gnu packages texinfo)
>>   #:use-module (gnu packages xorg))
>> 
>> (define-public smalltalk
>> @@ -61,7 +67,8 @@
>> (inputs
>>  `(("zip" ,zip)))
>> (arguments
>> - `(#:phases
>> + `(#:tests? #f  ; failing tests, 3.2.5 has been released years ago
>> +   #:phases
>>(modify-phases %standard-phases
>>  (add-before 'configure 'fix-libc
>>(lambda _
>> @@ -145,3 +152,57 @@ also includes a customisable framework for creating 
>> dynamic HTTP servers and
>> interactively extensible Web sites.")
>> (home-page "http://squeakvm.org/ ")
>> (license license:x11)))
>> +
>> +;;; alpha release
>> +(define-public smalltalk-next
>> +  (package (inherit smalltalk)
>> +(name "smalltalk-next")
>> +(version "3.2.91")
>> +(source
>> + (origin
>> +   (method url-fetch)
>> +   (uri (string-append "https://alpha.gnu.org/gnu/smalltalk/smalltalk- 
>> "
>> +   version ".tar.xz"))
>> +   (sha256
>> +(base32 "1zb2h5cbz1cwybqjl24lflw359lwj7sjvvhwb4x6miypzhwq4qh0"))
>> +
>> +;;; This version from the main development branch can be built with passing
>> +;;; tests
>> +(define-public smalltalk-next-from-vcs
>> +  (let ((revision "18")
>> +(commit "dfe4b5660037c4d178853ee00458a75e51a88563")
>> +(git-url "git://git.sv.gnu.org/smalltalk.git 
>> "))
>> +(package (inherit smalltalk)
>> +  (name "smalltalk-next-from-vcs")
>> +  (version (git-version "3.2.91" revision commit))
>> +  (source (origin
>> +(method git-fetch)
>> +(uri (git-reference
>> +  (url git-url)
>> +  (commit commit)))
>> +(file-name (git-file-name name version))
>> +(sha256 (base32 
>> "11dm1qricq7fwn1gfyn9ik7f1axw7l3ivipsh11dywa42pmb5j2r"
>> +  (native-inputs
>> +   `(("autoconf" ,autoconf)
>> + ("automake" ,automake)
>> + ("libtool" ,libtool)
>> + ("flex" ,flex)
>> + ("texinfo" ,texinfo)
>> + ("perl" ,perl)
>> + ("gettext" ,gettext-minimal)
>> + ("libffi" ,libffi)
>> + ("libltdl" ,libltdl)
>> + ("bison" ,bison)
>> + ("libsigsegv" ,libsigsegv)
>> + ("pkg-config" ,pkg-config)))
>> +  (arguments
>> +   `(#:phases
>> + (modify-phases %standard-phases
>> +   (add-before 'configure 'fix-libc
>> + (lambda _
>> +   (let ((libc (assoc-ref %build-inputs "libc")))
>> + (substitute* "libc.la.in "
>> +   (("@LIBC_SO_NAME@") "libc.so")
>> +   (("@LIBC_SO_DIR@")  (string-append libc "/lib"
>> +

bug#42771: [PATCH] Disable tests for smalltalk and add candidate releases

2020-11-29 Thread Holger Peters 
* gnu/packages/smalltalk.scm (smalltalk): disable tests
(smalltalk-next): New variable.
(smalltalk-next-from-vcs): New variable.
---
 gnu/packages/smalltalk.scm | 64 +-
 1 file changed, 63 insertions(+), 1 deletion(-)

diff --git a/gnu/packages/smalltalk.scm b/gnu/packages/smalltalk.scm
index 5d35f563e2..7136751a81 100644
--- a/gnu/packages/smalltalk.scm
+++ b/gnu/packages/smalltalk.scm
@@ -4,6 +4,7 @@
 ;;; Copyright © 2016 Nicolas Goaziou 
 ;;; Copyright © 2016 Ludovic Courtès 
 ;;; Copyright © 2018 Tobias Geerinckx-Rice 
+;;; Copyright © 2020 Holger Peters 
 ;;;
 ;;; This file is part of GNU Guix.
 ;;;
@@ -24,20 +25,26 @@
   #:use-module ((guix licenses) #:prefix license:)
   #:use-module (guix packages)
   #:use-module (guix download)
+  #:use-module (guix git-download)
   #:use-module (guix build-system cmake)
   #:use-module (guix build-system gnu)
   #:use-module (gnu packages audio)
   #:use-module (gnu packages autotools)
   #:use-module (gnu packages base)
+  #:use-module (gnu packages bison)
   #:use-module (gnu packages compression)
+  #:use-module (gnu packages flex)
   #:use-module (gnu packages fontutils)
+  #:use-module (gnu packages gettext)
   #:use-module (gnu packages gl)
   #:use-module (gnu packages glib)
   #:use-module (gnu packages libffi)
   #:use-module (gnu packages libsigsegv)
   #:use-module (gnu packages linux)
+  #:use-module (gnu packages perl)
   #:use-module (gnu packages pkg-config)
   #:use-module (gnu packages pulseaudio)
+  #:use-module (gnu packages texinfo)
   #:use-module (gnu packages xorg))
 
 (define-public smalltalk
@@ -61,7 +68,8 @@
 (inputs
  `(("zip" ,zip)))
 (arguments
- `(#:phases
+ `(#:tests? #f  ; failing tests, 3.2.5 has been released years ago
+   #:phases
(modify-phases %standard-phases
  (add-before 'configure 'fix-libc
(lambda _
@@ -145,3 +153,57 @@ also includes a customisable framework for creating 
dynamic HTTP servers and
 interactively extensible Web sites.")
 (home-page "http://squeakvm.org/;)
 (license license:x11)))
+
+;;; alpha release
+(define-public smalltalk-next
+  (package (inherit smalltalk)
+(name "smalltalk-next")
+(version "3.2.91")
+(source
+ (origin
+   (method url-fetch)
+   (uri (string-append "https://alpha.gnu.org/gnu/smalltalk/smalltalk-;
+   version ".tar.xz"))
+   (sha256
+(base32 "1zb2h5cbz1cwybqjl24lflw359lwj7sjvvhwb4x6miypzhwq4qh0"))
+
+;;; This version from the main development branch can be built with passing
+;;; tests
+(define-public smalltalk-next-from-vcs
+  (let ((revision "18")
+(commit "dfe4b5660037c4d178853ee00458a75e51a88563")
+(git-url "git://git.sv.gnu.org/smalltalk.git"))
+(package (inherit smalltalk)
+  (name "smalltalk-next-from-vcs")
+  (version (git-version "3.2.91" revision commit))
+  (source (origin
+(method git-fetch)
+(uri (git-reference
+  (url git-url)
+  (commit commit)))
+(file-name (git-file-name name version))
+(sha256 (base32 
"11dm1qricq7fwn1gfyn9ik7f1axw7l3ivipsh11dywa42pmb5j2r"
+  (native-inputs
+   `(("autoconf" ,autoconf)
+ ("automake" ,automake)
+ ("libtool" ,libtool)
+ ("flex" ,flex)
+ ("texinfo" ,texinfo)
+ ("perl" ,perl)
+ ("gettext" ,gettext-minimal)
+ ("libffi" ,libffi)
+ ("libltdl" ,libltdl)
+ ("bison" ,bison)
+ ("libsigsegv" ,libsigsegv)
+ ("pkg-config" ,pkg-config)))
+  (arguments
+   `(#:phases
+ (modify-phases %standard-phases
+   (add-before 'configure 'fix-libc
+ (lambda _
+   (let ((libc (assoc-ref %build-inputs "libc")))
+ (substitute* "libc.la.in"
+   (("@LIBC_SO_NAME@") "libc.so")
+   (("@LIBC_SO_DIR@")  (string-append libc "/lib"
+   #t
+
-- 
2.28.0

bug#42771: [PATCH] Disable tests for smalltalk and add candidate releases

2020-11-28 Thread Holger Peters 
Last stable GNU smalltalk release dates back to 2013-04-08.  Disabled tests as
they were also failing for my non-guix build.  Also added the latest alpha
release as `smalltalk-next` and a build from vcs where we actually pass the
tests.

* gnu/packages/ruby.scm (smalltalk): Disable tests
(smalltalk-next): New variable.
(smalltalk-next-from-vcs): New variable.
---
 gnu/packages/smalltalk.scm | 63 +-
 1 file changed, 62 insertions(+), 1 deletion(-)

diff --git a/gnu/packages/smalltalk.scm b/gnu/packages/smalltalk.scm
index 5d35f563e2..c96f4b1730 100644
--- a/gnu/packages/smalltalk.scm
+++ b/gnu/packages/smalltalk.scm
@@ -24,20 +24,26 @@
   #:use-module ((guix licenses) #:prefix license:)
   #:use-module (guix packages)
   #:use-module (guix download)
+  #:use-module (guix git-download)
   #:use-module (guix build-system cmake)
   #:use-module (guix build-system gnu)
   #:use-module (gnu packages audio)
   #:use-module (gnu packages autotools)
   #:use-module (gnu packages base)
+  #:use-module (gnu packages bison)
   #:use-module (gnu packages compression)
+  #:use-module (gnu packages flex)
   #:use-module (gnu packages fontutils)
+  #:use-module (gnu packages gettext)
   #:use-module (gnu packages gl)
   #:use-module (gnu packages glib)
   #:use-module (gnu packages libffi)
   #:use-module (gnu packages libsigsegv)
   #:use-module (gnu packages linux)
+  #:use-module (gnu packages perl)
   #:use-module (gnu packages pkg-config)
   #:use-module (gnu packages pulseaudio)
+  #:use-module (gnu packages texinfo)
   #:use-module (gnu packages xorg))
 
 (define-public smalltalk
@@ -61,7 +67,8 @@
 (inputs
  `(("zip" ,zip)))
 (arguments
- `(#:phases
+ `(#:tests? #f  ; failing tests, 3.2.5 has been released years ago
+   #:phases
(modify-phases %standard-phases
  (add-before 'configure 'fix-libc
(lambda _
@@ -145,3 +152,57 @@ also includes a customisable framework for creating 
dynamic HTTP servers and
 interactively extensible Web sites.")
 (home-page "http://squeakvm.org/;)
 (license license:x11)))
+
+;;; alpha release
+(define-public smalltalk-next
+  (package (inherit smalltalk)
+(name "smalltalk-next")
+(version "3.2.91")
+(source
+ (origin
+   (method url-fetch)
+   (uri (string-append "https://alpha.gnu.org/gnu/smalltalk/smalltalk-;
+   version ".tar.xz"))
+   (sha256
+(base32 "1zb2h5cbz1cwybqjl24lflw359lwj7sjvvhwb4x6miypzhwq4qh0"))
+
+;;; This version from the main development branch can be built with passing
+;;; tests
+(define-public smalltalk-next-from-vcs
+  (let ((revision "18")
+(commit "dfe4b5660037c4d178853ee00458a75e51a88563")
+(git-url "git://git.sv.gnu.org/smalltalk.git"))
+(package (inherit smalltalk)
+  (name "smalltalk-next-from-vcs")
+  (version (git-version "3.2.91" revision commit))
+  (source (origin
+(method git-fetch)
+(uri (git-reference
+  (url git-url)
+  (commit commit)))
+(file-name (git-file-name name version))
+(sha256 (base32 
"11dm1qricq7fwn1gfyn9ik7f1axw7l3ivipsh11dywa42pmb5j2r"
+  (native-inputs
+   `(("autoconf" ,autoconf)
+ ("automake" ,automake)
+ ("libtool" ,libtool)
+ ("flex" ,flex)
+ ("texinfo" ,texinfo)
+ ("perl" ,perl)
+ ("gettext" ,gettext-minimal)
+ ("libffi" ,libffi)
+ ("libltdl" ,libltdl)
+ ("bison" ,bison)
+ ("libsigsegv" ,libsigsegv)
+ ("pkg-config" ,pkg-config)))
+  (arguments
+   `(#:phases
+ (modify-phases %standard-phases
+   (add-before 'configure 'fix-libc
+ (lambda _
+   (let ((libc (assoc-ref %build-inputs "libc")))
+ (substitute* "libc.la.in"
+   (("@LIBC_SO_NAME@") "libc.so")
+   (("@LIBC_SO_DIR@")  (string-append libc "/lib"
+   #t
+
-- 
2.28.0