From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: from mp11.migadu.com ([2001:41d0:2:bcc0::]) (using TLSv1.3 with cipher TLS_AES_256_GCM_SHA384 (256/256 bits)) by ms5.migadu.com with LMTPS id mD7yHVFRL2N39AAAbAwnHQ (envelope-from ) for ; Sat, 24 Sep 2022 20:49:53 +0200 Received: from aspmx1.migadu.com ([2001:41d0:2:bcc0::]) (using TLSv1.3 with cipher TLS_AES_256_GCM_SHA384 (256/256 bits)) by mp11.migadu.com with LMTPS id WJzyHVFRL2MajAAA9RJhRA (envelope-from ) for ; Sat, 24 Sep 2022 20:49:53 +0200 Received: from lists.gnu.org (lists.gnu.org [209.51.188.17]) (using TLSv1.2 with cipher ECDHE-RSA-AES256-GCM-SHA384 (256/256 bits)) (No client certificate requested) by aspmx1.migadu.com (Postfix) with ESMTPS id 10204334CA for ; Sat, 24 Sep 2022 20:49:53 +0200 (CEST) Received: from localhost ([::1]:48450 helo=lists1p.gnu.org) by lists.gnu.org with esmtp (Exim 4.90_1) (envelope-from ) id 1ocADm-0000L7-SM for larch@yhetil.org; Sat, 24 Sep 2022 14:49:50 -0400 Received: from eggs.gnu.org ([2001:470:142:3::10]:33370) by lists.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) (envelope-from ) id 1ocADS-0000Kx-2T for help-guix@gnu.org; Sat, 24 Sep 2022 14:49:30 -0400 Received: from mx1.riseup.net ([198.252.153.129]:55150) by eggs.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) (envelope-from ) id 1ocADP-0005f3-SI for help-guix@gnu.org; Sat, 24 Sep 2022 14:49:29 -0400 Received: from fews1.riseup.net (fews1-pn.riseup.net [10.0.1.83]) (using TLSv1.3 with cipher TLS_AES_256_GCM_SHA384 (256/256 bits) key-exchange X25519 server-signature RSA-PSS (2048 bits) server-digest SHA256 client-signature RSA-PSS (2048 bits) client-digest SHA256) (Client CN "mail.riseup.net", Issuer "R3" (not verified)) by mx1.riseup.net (Postfix) with ESMTPS id 4MZdNP27XPzDqsV; Sat, 24 Sep 2022 18:49:25 +0000 (UTC) DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/simple; d=riseup.net; s=squak; t=1664045365; bh=NN898+zocW/z8D92kckSNHkRw9XDFPqufLlF9o15iRM=; h=References:From:To:Cc:Subject:Date:In-reply-to:From; b=fuXscTWjGLMrUmTLTAADeXIsDGB4710NcdGiiyxyZJ5O6mx4VKj0Ypv1C1Q6OH4sp dbLnNUnJJbFkJTiA/T67cdHVz7WLaZDeJUCB3usR4sQk6ViX3IHn+n32FRU0IbBbrU a1dvhmQKKhKA1xHSdaesj+0K9eoV46fllyvYoCxY= X-Riseup-User-ID: 27E3A5EC011021AEFC9797EAB4AE3C32D4564D405D8ED13E135701C2381108EF Received: from [127.0.0.1] (localhost [127.0.0.1]) by fews1.riseup.net (Postfix) with ESMTPSA id 4MZdNN4Bkxz5vMc; Sat, 24 Sep 2022 18:49:24 +0000 (UTC) References: <87czbm2e9v.fsf@gmail.com> From: Csepp To: zimoun Cc: help-guix@gnu.org Subject: Re: how to fix this G-exp? Date: Sat, 24 Sep 2022 20:40:24 +0200 In-reply-to: <87czbm2e9v.fsf@gmail.com> Message-ID: <875yhcsj4e.fsf@riseup.net> MIME-Version: 1.0 Content-Type: text/plain Received-SPF: pass client-ip=198.252.153.129; envelope-from=raingloom@riseup.net; helo=mx1.riseup.net X-Spam_score_int: -27 X-Spam_score: -2.8 X-Spam_bar: -- X-Spam_report: (-2.8 / 5.0 requ) BAYES_00=-1.9, DKIM_SIGNED=0.1, DKIM_VALID=-0.1, DKIM_VALID_AU=-0.1, DKIM_VALID_EF=-0.1, RCVD_IN_DNSWL_LOW=-0.7, RCVD_IN_MSPIKE_H3=0.001, RCVD_IN_MSPIKE_WL=0.001, SPF_HELO_PASS=-0.001, SPF_PASS=-0.001 autolearn=ham autolearn_force=no X-Spam_action: no action X-BeenThere: help-guix@gnu.org X-Mailman-Version: 2.1.29 Precedence: list List-Id: List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: help-guix-bounces+larch=yhetil.org@gnu.org Sender: "Help-Guix" X-Migadu-Flow: FLOW_IN X-Migadu-To: larch@yhetil.org X-Migadu-Country: US ARC-Message-Signature: i=1; a=rsa-sha256; c=relaxed/relaxed; d=yhetil.org; s=key1; t=1664045393; h=from:from:sender:sender:reply-to:subject:subject:date:date: message-id:message-id:to:to:cc:cc:mime-version:mime-version: content-type:content-type:in-reply-to:in-reply-to: references:references:list-id:list-help:list-unsubscribe: list-subscribe:list-post:dkim-signature; bh=6OYOuEsBv8rK7Vuz0tts1D5Ze0Z4AdWbkZw4CzyHRpM=; b=LrTxNUSXrZpRuuRrEbKdGPdZhxEyg1JpkYjL+SVXmY0L6Q1N+EYBTXdLWUHNiwD+u9mZ2F 4+u8NSXljOkp/p6gxn+sLHkGmJZZUzTvEVfKFt96GFFTYi5oYb8EN0YbPU2Zc970rh/uCF redUQiWGAi0JWZW6NUG/SxpVA10aCHPNzmNC08wD/kiLkaSIayGva/3dLaOHPVD9ST6hNe BOqZXLVKy+W63x9ixa0fBZ7J8UuL+6AsZgI1dv1tNFe1lctUK4q7rRSTmaGJiRqgaJ8YK4 NxBjtcAXSG+ncSO5ifcw+BZbr2uXGthScx80fetC4ab47+jr4cqU2Zlwvp/Sng== ARC-Seal: i=1; s=key1; d=yhetil.org; t=1664045393; a=rsa-sha256; cv=none; b=js4Ym/ylQqC7ZasulJwl2yEhnn2AQiQ1opFV/Bboo3M2cdbEsONoON8c4hDCuQmaSkGFqi eJSws5DwP348owO9rYaS0KCPCxAS3mJ4WVOZScrZWhzvqfhHVEfP8jhU1f8k2htPCkJiNR JIE4aZpgX5/HR5UitYTckVYsxIxkIzctH7lvFvFEsZNxegfcweXjmiMPuNhRDZOorChrSE 2Pf/ydaF1ffxLggHm3QDBwR6xj/CNKhCDXZg7G1hfLcL/6fcBO9eCOv6CiqtuHptkF+Qbv wT6/L1ZX60XyoDApQys0bUogU3bnkENVO4EPm16ZTGPns500HcvAqSVI6wBHtg== ARC-Authentication-Results: i=1; aspmx1.migadu.com; dkim=pass header.d=riseup.net header.s=squak header.b=fuXscTWj; dmarc=pass (policy=none) header.from=riseup.net; spf=pass (aspmx1.migadu.com: domain of "help-guix-bounces+larch=yhetil.org@gnu.org" designates 209.51.188.17 as permitted sender) smtp.mailfrom="help-guix-bounces+larch=yhetil.org@gnu.org" X-Migadu-Spam-Score: -2.56 Authentication-Results: aspmx1.migadu.com; dkim=pass header.d=riseup.net header.s=squak header.b=fuXscTWj; dmarc=pass (policy=none) header.from=riseup.net; spf=pass (aspmx1.migadu.com: domain of "help-guix-bounces+larch=yhetil.org@gnu.org" designates 209.51.188.17 as permitted sender) smtp.mailfrom="help-guix-bounces+larch=yhetil.org@gnu.org" X-Migadu-Queue-Id: 10204334CA X-Spam-Score: -2.56 X-Migadu-Scanner: scn0.migadu.com X-TUID: hblUaIgwaR5P zimoun writes: > Hi, > > I am missing something and I do not find my way, so maybe someone could > explain me what I am doing wrong. I'll try. UwU > Let start with this example. > > (use-modules (srfi srfi-1) > (ice-9 match) > (guix packages) > (gnu packages)) > > (define (package+propagated-inputs package) > (match (package-transitive-propagated-inputs package) > (((labels packages) ...) > (cons package packages)))) > > > (define (something) > 42) > So this will take one of these values with the later edits you talk about: 42 '(42) '(42 42) And this is used... > > (define (an-example) > > (define build > (with-extensions (package+propagated-inputs > (specification->package "guile-json")) > (with-imported-modules '((guix build utils) > (json)) > #~(begin > (use-modules (guix build utils) > (json)) > > (define that > #+(something)) ...here! The later use of "that" is not important. >... When you spliced (not sliced) it, you got: ``` (define that (42)) ``` As you can see, that is an unqouted list. The fix should be pretty simple: just add an extra quote. Haven't tested it, but one of these should work: ``` (define (something) ''(42)) ;; or (quote #+(something)) ``` I'm pretty sure I've run into this in a service definition and used the latter.