From mboxrd@z Thu Jan 1 00:00:00 1970 Path: main.gmane.org!not-for-mail From: Roland Orre Newsgroups: gmane.lisp.guile.bugs Subject: scm_num_eq Date: Fri, 23 Jan 2004 01:55:18 +0100 Organization: NeuroLogic Sender: bug-guile-bounces+guile-bugs=m.gmane.org@gnu.org Message-ID: <1074819318.23546.317.camel@localhost> NNTP-Posting-Host: deer.gmane.org Mime-Version: 1.0 Content-Type: text/plain Content-Transfer-Encoding: 7bit X-Trace: sea.gmane.org 1074819797 20869 80.91.224.253 (23 Jan 2004 01:03:17 GMT) X-Complaints-To: usenet@sea.gmane.org NNTP-Posting-Date: Fri, 23 Jan 2004 01:03:17 +0000 (UTC) Original-X-From: bug-guile-bounces+guile-bugs=m.gmane.org@gnu.org Fri Jan 23 02:03:04 2004 Return-path: Original-Received: from monty-python.gnu.org ([199.232.76.173]) by deer.gmane.org with esmtp (Exim 3.35 #1 (Debian)) id 1Ajpiy-0003Gm-00 for ; Fri, 23 Jan 2004 02:03:04 +0100 Original-Received: from localhost ([127.0.0.1] helo=monty-python.gnu.org) by monty-python.gnu.org with esmtp (Exim 4.24) id 1Ajpif-0007Qr-9Z for guile-bugs@m.gmane.org; Thu, 22 Jan 2004 20:02:45 -0500 Original-Received: from list by monty-python.gnu.org with tmda-scanned (Exim 4.24) id 1AjphW-00073H-Aa for bug-guile@gnu.org; Thu, 22 Jan 2004 20:01:34 -0500 Original-Received: from mail by monty-python.gnu.org with spam-scanned (Exim 4.24) id 1Ajpgc-0006iV-Ls for bug-guile@gnu.org; Thu, 22 Jan 2004 20:01:10 -0500 Original-Received: from [217.70.33.37] (helo=lists.levonline.com) by monty-python.gnu.org with esmtp (Exim 4.24) id 1AjpgX-0006WQ-LJ for bug-guile@gnu.org; Thu, 22 Jan 2004 20:00:33 -0500 Original-Received: from localhost (lists.levonline.com [127.0.0.1]) by lists.levonline.com (Postfix) with ESMTP id 50D45D03E0; Fri, 23 Jan 2004 02:00:28 +0100 (CET) Original-Received: from lists.levonline.com ([127.0.0.1]) by localhost (lists.levonline.com [127.0.0.1]) (amavisd-new, port 10024) with ESMTP id 18531-09; Fri, 23 Jan 2004 02:00:28 +0100 (CET) Original-Received: from ormen2.basenet.levonline.com (ormen2.levonline.com [217.70.32.118]) by lists.levonline.com (Postfix) with ESMTP id EE934D03D4; Fri, 23 Jan 2004 02:00:27 +0100 (CET) Original-Received: from osts (h148n2fls33o875.telia.com [217.208.54.148]) (authenticated bits=0) by ormen2.basenet.levonline.com (8.12.8/8.12.8) with ESMTP id i0N0tmHj003722; Fri, 23 Jan 2004 01:55:53 +0100 Original-To: bug-guile@gnu.org X-Mailer: Ximian Evolution 1.4.5 X-Virus-Scanned: By http://levonline.com - free virus scanning for all customers X-BeenThere: bug-guile@gnu.org X-Mailman-Version: 2.1.2 Precedence: list List-Id: Bug reports for GUILE, GNU's Ubiquitous Extension Language List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: bug-guile-bounces+guile-bugs=m.gmane.org@gnu.org Xref: main.gmane.org gmane.lisp.guile.bugs:1126 X-Report-Spam: http://spam.gmane.org/gmane.lisp.guile.bugs:1126 Hi, This code gives the expected result: if (SCM_EQ_P(SCM_CDR(handle),SCM_MAKINUM(0))) but this code doesn't: if (scm_num_eq_p(SCM_CDR(handle),SCM_MAKINUM(0))) as this latter code always gives false back. I guess it wouldn't matter how the background is, but this is the case. The key cell is a local variable. scm_t_cell key; SCM tmp; SCM_SETCAR((SCM)&key,SCM_MAKE_STRING_TAG (slen)); SCM_SETCDR((SCM)&key,(scm_t_bits) str); SCM handle= scm_hash_fn_create_handle_x (table, (SCM) &key, SCM_MAKINUM(0), scm_ihash, scm_sloppy_assoc, 0); Best regards Roland Orre _______________________________________________ Bug-guile mailing list Bug-guile@gnu.org http://mail.gnu.org/mailman/listinfo/bug-guile