From mboxrd@z Thu Jan  1 00:00:00 1970
From: Ludovic =?UTF-8?Q?Court=C3=A8s?= <ludo@gnu.org>
Subject: bug#36813: 'lower-gexp' does not respect 'system' or 'target' keywords
Date: Fri, 26 Jul 2019 17:28:11 +0200
Message-ID: <87a7d0n7ck.fsf@gnu.org>
References: <87imrp3ddy.fsf@sdf.lonestar.org> <87ftmtqk84.fsf@gnu.org>
 <87muh0lvg1.fsf@sdf.lonestar.org>
Mime-Version: 1.0
Content-Type: text/plain; charset=utf-8
Content-Transfer-Encoding: quoted-printable
Return-path: <bug-guix-bounces+gcggb-bug-guix=m.gmane.org@gnu.org>
Received: from eggs.gnu.org ([2001:470:142:3::10]:57251)
 by lists.gnu.org with esmtp (Exim 4.86_2)
 (envelope-from <Debian-debbugs@debbugs.gnu.org>) id 1hr29X-0004N2-9Y
 for bug-guix@gnu.org; Fri, 26 Jul 2019 11:29:04 -0400
Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71)
 (envelope-from <Debian-debbugs@debbugs.gnu.org>) id 1hr29W-0006KJ-60
 for bug-guix@gnu.org; Fri, 26 Jul 2019 11:29:03 -0400
Received: from debbugs.gnu.org ([209.51.188.43]:34369)
 by eggs.gnu.org with esmtps (TLS1.0:RSA_AES_128_CBC_SHA1:16)
 (Exim 4.71) (envelope-from <Debian-debbugs@debbugs.gnu.org>)
 id 1hr29W-0006K4-2I
 for bug-guix@gnu.org; Fri, 26 Jul 2019 11:29:02 -0400
Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.84_2)
 (envelope-from <Debian-debbugs@debbugs.gnu.org>) id 1hr29V-00043H-Su
 for bug-guix@gnu.org; Fri, 26 Jul 2019 11:29:01 -0400
Sender: "Debbugs-submit" <debbugs-submit-bounces@debbugs.gnu.org>
Resent-Message-ID: <handler.36813.B36813.156415490415525@debbugs.gnu.org>
In-Reply-To: <87muh0lvg1.fsf@sdf.lonestar.org> (Jakob L. Kreuze's message of
 "Fri, 26 Jul 2019 10:30:38 -0400")
List-Id: Bug reports for GNU Guix <bug-guix.gnu.org>
List-Unsubscribe: <https://lists.gnu.org/mailman/options/bug-guix>,
 <mailto:bug-guix-request@gnu.org?subject=unsubscribe>
List-Archive: <https://lists.gnu.org/archive/html/bug-guix>
List-Post: <mailto:bug-guix@gnu.org>
List-Help: <mailto:bug-guix-request@gnu.org?subject=help>
List-Subscribe: <https://lists.gnu.org/mailman/listinfo/bug-guix>,
 <mailto:bug-guix-request@gnu.org?subject=subscribe>
Errors-To: bug-guix-bounces+gcggb-bug-guix=m.gmane.org@gnu.org
Sender: "bug-Guix" <bug-guix-bounces+gcggb-bug-guix=m.gmane.org@gnu.org>
To: "Jakob L. Kreuze" <zerodaysfordays@sdf.lonestar.org>
Cc: 36813@debbugs.gnu.org

zerodaysfordays@sdf.lonestar.org (Jakob L. Kreuze) skribis:

> Changing it to the following:
>
> #+BEGIN_SRC scheme
> (lower-gexp exp
>             #:system "i686-linux"
>             #:target "i686-unknown-linux-gnu"
>             #:guile-for-build #f)
> #+END_SRC
>
> The Guile used is still a 64-bit LSB executable.

I can=E2=80=99t reproduce it on current =E2=80=98master=E2=80=99:

--8<---------------cut here---------------start------------->8---
scheme@(guile-user)> ,run-in-store (lower-gexp #~(+ 2 3) #:guile-for-build =
#f #:system "mips64el-linux")
$6 =3D #<<lowered-gexp> sexp: (+ 2 3) inputs: () sources: () guile: #<<deri=
vation-input> drv: #<derivation /gnu/store/jsnihqsz6nxwv88pr41i2y3403f959cf=
-guile-2.2.4.drv =3D> /gnu/store/n2570pg8cahc8k9iqrg5qngyzf6j0xzr-guile-2.2=
.4-debug /gnu/store/j9a8dx25cj045yl5l32ajkkjf92ib3y1-guile-2.2.4 46e3230> s=
ub-derivations: ("out")> load-path: () load-compiled-path: ()>
scheme@(guile-user)> (derivation-system (derivation-input-derivation (lower=
ed-gexp-guile $6)))
$7 =3D "mips64el-linux"
--8<---------------cut here---------------end--------------->8---

Not even when cross-compiling (BTW, #:target probably doesn=E2=80=99t make =
sense
above, since it=E2=80=99s cross-compiling from i686 to i686):

--8<---------------cut here---------------start------------->8---
scheme@(guile-user)> ,run-in-store (lower-gexp #~(+ 2 3) #:guile-for-build =
#f #:system "mips64el-linux" #:target "i586-pc-gnu")
$8 =3D #<<lowered-gexp> sexp: (+ 2 3) inputs: () sources: () guile: #<<deri=
vation-input> drv: #<derivation /gnu/store/jsnihqsz6nxwv88pr41i2y3403f959cf=
-guile-2.2.4.drv =3D> /gnu/store/n2570pg8cahc8k9iqrg5qngyzf6j0xzr-guile-2.2=
.4-debug /gnu/store/j9a8dx25cj045yl5l32ajkkjf92ib3y1-guile-2.2.4 46e3230> s=
ub-derivations: ("out")> load-path: () load-compiled-path: ()>
scheme@(guile-user)> (derivation-system (derivation-input-derivation (lower=
ed-gexp-guile $8)))
$9 =3D "mips64el-linux"
--8<---------------cut here---------------end--------------->8---

Am I missing something?

Thanks,
Ludo=E2=80=99.