From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: Kevin Ryde Newsgroups: gmane.lisp.guile.devel Subject: list versus apply Date: Thu, 21 Apr 2005 08:22:16 +1000 Message-ID: <87mzrtgkbr.fsf@zip.com.au> NNTP-Posting-Host: main.gmane.org Mime-Version: 1.0 Content-Type: multipart/mixed; boundary="=-=-=" X-Trace: sea.gmane.org 1114037720 14216 80.91.229.2 (20 Apr 2005 22:55:20 GMT) X-Complaints-To: usenet@sea.gmane.org NNTP-Posting-Date: Wed, 20 Apr 2005 22:55:20 +0000 (UTC) Original-X-From: guile-devel-bounces+guile-devel=m.gmane.org@gnu.org Thu Apr 21 00:55:17 2005 Return-path: Original-Received: from lists.gnu.org ([199.232.76.165]) by ciao.gmane.org with esmtp (Exim 4.43) id 1DOO5v-0003Rv-Dg for guile-devel@m.gmane.org; Thu, 21 Apr 2005 00:54:55 +0200 Original-Received: from localhost ([127.0.0.1] helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1DOOAW-0001uC-AN for guile-devel@m.gmane.org; Wed, 20 Apr 2005 18:59:40 -0400 Original-Received: from mailman by lists.gnu.org with tmda-scanned (Exim 4.43) id 1DONc6-0007Ix-Ez for guile-devel@gnu.org; Wed, 20 Apr 2005 18:24:06 -0400 Original-Received: from exim by lists.gnu.org with spam-scanned (Exim 4.43) id 1DONc3-0007HV-SK for guile-devel@gnu.org; Wed, 20 Apr 2005 18:24:05 -0400 Original-Received: from [199.232.76.173] (helo=monty-python.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1DONc3-0006CG-JL for guile-devel@gnu.org; Wed, 20 Apr 2005 18:24:03 -0400 Original-Received: from [61.8.0.84] (helo=mailout1.pacific.net.au) by monty-python.gnu.org with esmtp (Exim 4.34) id 1DONd2-0007n0-B2 for guile-devel@gnu.org; Wed, 20 Apr 2005 18:25:05 -0400 Original-Received: from mailproxy1.pacific.net.au (mailproxy1.pacific.net.au [61.8.0.86]) by mailout1.pacific.net.au (8.12.3/8.12.3/Debian-7.1) with ESMTP id j3KMMYJu015686 for ; Thu, 21 Apr 2005 08:22:34 +1000 Original-Received: from localhost (ppp2834.dyn.pacific.net.au [61.8.40.52]) by mailproxy1.pacific.net.au (8.12.3/8.12.3/Debian-7.1) with ESMTP id j3KMMXIn015142 for ; Thu, 21 Apr 2005 08:22:33 +1000 Original-Received: from gg by localhost with local (Exim 3.36 #1 (Debian)) id 1DONaL-0000te-00; Thu, 21 Apr 2005 08:22:17 +1000 Original-To: guile-devel@gnu.org Mail-Copies-To: never User-Agent: Gnus/5.110003 (No Gnus v0.3) Emacs/21.3 (gnu/linux) X-BeenThere: guile-devel@gnu.org X-Mailman-Version: 2.1.5 Precedence: list List-Id: "Developers list for Guile, the GNU extensibility library" List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Original-Sender: guile-devel-bounces+guile-devel=m.gmane.org@gnu.org Errors-To: guile-devel-bounces+guile-devel=m.gmane.org@gnu.org Xref: news.gmane.org gmane.lisp.guile.devel:4911 X-Report-Spam: http://spam.gmane.org/gmane.lisp.guile.devel:4911 --=-=-= Looks like list doesn't produce a new list when called through apply, (define x '(1 2 3)) (define y (apply list x)) (eq? x y) => #t I'm looking at the fix below. This removes the C level scm_list, but that should be ok, it's not documented and does nothing. --=-=-= Content-Disposition: inline; filename=list.c.list.diff --- list.c.~1.58.2.7.~ 2004-05-02 07:19:23.000000000 +1000 +++ list.c 2005-04-20 16:31:40.725063792 +1000 @@ -117,17 +117,6 @@ } -SCM_DEFINE (scm_list, "list", 0, 0, 1, - (SCM objs), - "Return a list containing @var{objs}, the arguments to\n" - "@code{list}.") -#define FUNC_NAME s_scm_list -{ - return objs; -} -#undef FUNC_NAME - - #if (SCM_DEBUG_DEPRECATED == 0) SCM_REGISTER_PROC (s_list_star, "list*", 1, 0, 1, scm_cons_star); @@ -547,6 +536,13 @@ } #undef FUNC_NAME + +SCM_PROC (s_list, "list", 0, 0, 1, scm_list_copy); +SCM_SNARF_DOCS (register, scm_list_copy, "list", (SCM objs), 0, 0, 1, + "Return a list containing @var{objs}, the arguments to\n" + "@code{list}.") + + /* membership tests (memq, memv, etc.) */ --=-=-= Content-Type: text/plain; charset="us-ascii" MIME-Version: 1.0 Content-Transfer-Encoding: 7bit Content-Disposition: inline _______________________________________________ Guile-devel mailing list Guile-devel@gnu.org http://lists.gnu.org/mailman/listinfo/guile-devel --=-=-=--