From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: Andy Wingo Newsgroups: gmane.lisp.guile.user Subject: Re: or values bug? Date: Mon, 05 Dec 2011 21:57:15 +0100 Message-ID: <871usirb2s.fsf@pobox.com> References: <20111205143331.GA2681@ccellier.rd.securactive.lan> <87obvmhq7x.fsf@gnu.org> NNTP-Posting-Host: lo.gmane.org Mime-Version: 1.0 Content-Type: text/plain; charset=utf-8 Content-Transfer-Encoding: quoted-printable X-Trace: dough.gmane.org 1323118653 21577 80.91.229.12 (5 Dec 2011 20:57:33 GMT) X-Complaints-To: usenet@dough.gmane.org NNTP-Posting-Date: Mon, 5 Dec 2011 20:57:33 +0000 (UTC) Cc: guile-user@gnu.org To: ludo@gnu.org (Ludovic =?utf-8?Q?Court=C3=A8s?=) Original-X-From: guile-user-bounces+guile-user=m.gmane.org@gnu.org Mon Dec 05 21:57:29 2011 Return-path: Envelope-to: guile-user@m.gmane.org Original-Received: from lists.gnu.org ([140.186.70.17]) by lo.gmane.org with esmtp (Exim 4.69) (envelope-from ) id 1RXfbK-0001Ks-79 for guile-user@m.gmane.org; Mon, 05 Dec 2011 21:57:26 +0100 Original-Received: from localhost ([::1]:37002 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1RXfbJ-0001yn-QD for guile-user@m.gmane.org; Mon, 05 Dec 2011 15:57:25 -0500 Original-Received: from eggs.gnu.org ([140.186.70.92]:34391) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1RXfbF-0001xp-NS for guile-user@gnu.org; Mon, 05 Dec 2011 15:57:22 -0500 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1RXfbE-0000wR-Jz for guile-user@gnu.org; Mon, 05 Dec 2011 15:57:21 -0500 Original-Received: from a-pb-sasl-sd.pobox.com ([74.115.168.62]:42058 helo=sasl.smtp.pobox.com) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1RXfbE-0000wM-EI; Mon, 05 Dec 2011 15:57:20 -0500 Original-Received: from sasl.smtp.pobox.com (unknown [127.0.0.1]) by a-pb-sasl-sd.pobox.com (Postfix) with ESMTP id EF6D68F21; Mon, 5 Dec 2011 15:57:19 -0500 (EST) DKIM-Signature: v=1; a=rsa-sha1; c=relaxed; d=pobox.com; h=from:to:cc :subject:references:date:in-reply-to:message-id:mime-version :content-type:content-transfer-encoding; s=sasl; bh=ecR/ahT8qtBJ OyqXPldfAMhQTRQ=; b=VAVny9n0gLd3PpxA9jd6eWkrmBYNs0wrpiaqkTqM9MDJ e3XO40B/uU189o/b9fHezgOTnhga2A2tPNwtBBsTODb2D9stLOZHMv7tbVc2ymJ9 RUxUFSz214Bbuv1ucohIcWNjNEz7mZQ/aBUrsxiK5xa+epDtSKCzlJk6XUui93M= DomainKey-Signature: a=rsa-sha1; c=nofws; d=pobox.com; h=from:to:cc :subject:references:date:in-reply-to:message-id:mime-version :content-type:content-transfer-encoding; q=dns; s=sasl; b=hRynmn 6AYViVZqr8WLOshIxGZq/2TqNw5HLSjvhfavx/HS/tEVtAZ+l6bo1mmWAo1sIaYb QJVv7Cxypf6lPoyXNYPIoTM+bSKzeNDWzbmPnENZQw05Swa6SJ2C2qMmJS8VD4F8 wQLAC9n1pT4i1BWJmpV/aRUFpmfysygRfnvIc= Original-Received: from a-pb-sasl-sd.pobox.com (unknown [127.0.0.1]) by a-pb-sasl-sd.pobox.com (Postfix) with ESMTP id E8A2A8F20; Mon, 5 Dec 2011 15:57:19 -0500 (EST) Original-Received: from badger (unknown [90.164.198.39]) (using TLSv1 with cipher DHE-RSA-AES256-SHA (256/256 bits)) (No client certificate requested) by a-pb-sasl-sd.pobox.com (Postfix) with ESMTPSA id 5D2808F1F; Mon, 5 Dec 2011 15:57:19 -0500 (EST) In-Reply-To: <87obvmhq7x.fsf@gnu.org> ("Ludovic =?utf-8?Q?Court=C3=A8s=22'?= =?utf-8?Q?s?= message of "Mon, 05 Dec 2011 18:40:18 +0100") User-Agent: Gnus/5.13 (Gnus v5.13) Emacs/23.3 (gnu/linux) X-Pobox-Relay-ID: B88DFF52-1F83-11E1-AA98-65B1DE995924-02397024!a-pb-sasl-sd.pobox.com X-detected-operating-system: by eggs.gnu.org: Solaris 10 (beta) X-Received-From: 74.115.168.62 X-BeenThere: guile-user@gnu.org X-Mailman-Version: 2.1.14 Precedence: list List-Id: General Guile related discussions List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: guile-user-bounces+guile-user=m.gmane.org@gnu.org Original-Sender: guile-user-bounces+guile-user=m.gmane.org@gnu.org Xref: news.gmane.org gmane.lisp.guile.user:9034 Archived-At: On Mon 05 Dec 2011 18:40, ludo@gnu.org (Ludovic Court=C3=A8s) writes: > scheme@(guile-user)> ,optimize (or (values 1 2) 'b) > $6 =3D (values 1 2) > > That the second value isn=E2=80=99t truncated is a bug (see below.) Indeed. > (let* ((vars (map (compose truncate lookup-var) gensyms)) > ...) > ...) Better to truncate when adding variables to all expand-time environments, I would think, in the form of `(cut make-primcall #f 'values <>)'. Andy --=20 http://wingolog.org/