From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: Ludovic =?UTF-8?B?Q291cnTDqHM=?= Newsgroups: gmane.lisp.guile.bugs Subject: [bug #31445] Incorrect multiple-value truncation [1.9.13] Date: Mon, 25 Oct 2010 09:57:34 +0000 Message-ID: <20101025-095734.sv15145.1814@savannah.gnu.org> NNTP-Posting-Host: lo.gmane.org Mime-Version: 1.0 Content-Type: text/plain;charset=UTF-8 X-Trace: dough.gmane.org 1288000681 11079 80.91.229.12 (25 Oct 2010 09:58:01 GMT) X-Complaints-To: usenet@dough.gmane.org NNTP-Posting-Date: Mon, 25 Oct 2010 09:58:01 +0000 (UTC) To: Ludovic =?UTF-8?B?Q291cnTDqHM=?= , bug-guile@gnu.org Original-X-From: bug-guile-bounces+guile-bugs=m.gmane.org@gnu.org Mon Oct 25 11:58:00 2010 Return-path: Envelope-to: guile-bugs@m.gmane.org Original-Received: from lists.gnu.org ([199.232.76.165]) by lo.gmane.org with esmtp (Exim 4.69) (envelope-from ) id 1PAJoL-0006GM-2r for guile-bugs@m.gmane.org; Mon, 25 Oct 2010 11:57:49 +0200 Original-Received: from localhost ([127.0.0.1]:42186 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1PAJoK-0008CO-Fi for guile-bugs@m.gmane.org; Mon, 25 Oct 2010 05:57:48 -0400 Original-Received: from [140.186.70.92] (port=59756 helo=eggs.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1PAJo9-0008BI-6S for bug-guile@gnu.org; Mon, 25 Oct 2010 05:57:38 -0400 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1PAJo8-000153-1C for bug-guile@gnu.org; Mon, 25 Oct 2010 05:57:37 -0400 Original-Received: from colonialone.fsf.org ([140.186.70.51]:33981 helo=internal.in.savannah.gnu.org) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1PAJo7-00014r-0Z; Mon, 25 Oct 2010 05:57:35 -0400 Original-Received: from [10.1.0.103] (helo=frontend.in.savannah.gnu.org) by internal.in.savannah.gnu.org with esmtp (Exim 4.69) (envelope-from ) id 1PAJo6-0006GE-JU; Mon, 25 Oct 2010 09:57:34 +0000 Original-Received: from www-data by frontend.in.savannah.gnu.org with local (Exim 4.69) (envelope-from ) id 1PAJo6-0003Cx-IZ; Mon, 25 Oct 2010 09:57:34 +0000 X-Savane-Server: savannah.gnu.org:443 [10.1.0.103] X-Savane-Project: guile X-Savane-Tracker: bugs X-Savane-Item-ID: 31445 User-Agent: Mozilla/5.0 (GNU; rv:1.9.1.7) Gecko/20100107 IceCat/3.6 (like Firefox/3.6) X-Apparently-From: 147.210.128.193 (Savane authenticated user civodul) Original-References: In-Reply-To: X-detected-operating-system: by eggs.gnu.org: GNU/Linux 2.6 (newer, 2) X-BeenThere: bug-guile@gnu.org X-Mailman-Version: 2.1.5 Precedence: list List-Id: "Bug reports for GUILE, GNU's Ubiquitous Extension Language" List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Original-Sender: bug-guile-bounces+guile-bugs=m.gmane.org@gnu.org Errors-To: bug-guile-bounces+guile-bugs=m.gmane.org@gnu.org Xref: news.gmane.org gmane.lisp.guile.bugs:4834 Archived-At: URL: Summary: Incorrect multiple-value truncation [1.9.13] Project: Guile Submitted by: civodul Submitted on: Mon 25 Oct 2010 09:57:33 AM GMT Category: None Severity: 3 - Normal Item Group: None Status: None Privacy: Public Assigned to: None Open/Closed: Open Discussion Lock: Any _______________________________________________________ Details: This is with `map' implemented in C: #v+ scheme@(guile-user)> (map (lambda (x) (values x x)) (iota 2)) $5 = (# #) scheme@(guile-user)> ,x map Disassembly of #: 0 (assert-nargs-ge 0 2) 3 (push-rest 0 2) 6 (object-ref 0) ;; # 8 (subr-call 3) #v- Instead, the result should be '(0 1). Conversely: #v+ scheme@(guile-user)> (map (lambda (x) (identity (values x x))) (iota 2)) $6 = (0 1) scheme@(guile-user)> ,x identity Disassembly of #: 0 (assert-nargs-ee/locals 1) 2 (local-ref 0) ;; `x' 4 (return) #v- _______________________________________________________ Reply to this item at: _______________________________________________ Message sent via/by Savannah http://savannah.gnu.org/