From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: Neil Jerram Newsgroups: gmane.lisp.guile.bugs Subject: Re: [bug #22022] hashx-set! and -ref Date: Thu, 17 Jan 2008 23:02:20 +0000 Message-ID: <87lk6ocayr.fsf@ossau.uklinux.net> References: <20080114-224004.sv59778.71865@savannah.gnu.org> <20080117-215218.sv185.60269@savannah.gnu.org> NNTP-Posting-Host: lo.gmane.org Mime-Version: 1.0 Content-Type: text/plain; charset=us-ascii X-Trace: ger.gmane.org 1200611011 13390 80.91.229.12 (17 Jan 2008 23:03:31 GMT) X-Complaints-To: usenet@ger.gmane.org NNTP-Posting-Date: Thu, 17 Jan 2008 23:03:31 +0000 (UTC) Cc: bug-guile@gnu.org To: Gregory Marton Original-X-From: bug-guile-bounces+guile-bugs=m.gmane.org@gnu.org Fri Jan 18 00:03:49 2008 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.50) id 1JFdlu-0008Lw-GD for guile-bugs@m.gmane.org; Fri, 18 Jan 2008 00:03:42 +0100 Original-Received: from localhost ([127.0.0.1] helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1JFdlV-0004b4-Ql for guile-bugs@m.gmane.org; Thu, 17 Jan 2008 18:03:17 -0500 Original-Received: from mailman by lists.gnu.org with tmda-scanned (Exim 4.43) id 1JFdkh-00042v-QT for bug-guile@gnu.org; Thu, 17 Jan 2008 18:02:27 -0500 Original-Received: from exim by lists.gnu.org with spam-scanned (Exim 4.43) id 1JFdke-0003zP-0R for bug-guile@gnu.org; Thu, 17 Jan 2008 18:02:27 -0500 Original-Received: from [199.232.76.173] (helo=monty-python.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1JFdkd-0003zH-Os for bug-guile@gnu.org; Thu, 17 Jan 2008 18:02:23 -0500 Original-Received: from mail3.uklinux.net ([80.84.72.33]) by monty-python.gnu.org with esmtp (Exim 4.60) (envelope-from ) id 1JFdkd-00034l-7T for bug-guile@gnu.org; Thu, 17 Jan 2008 18:02:23 -0500 Original-Received: from arudy (host86-145-183-175.range86-145.btcentralplus.com [86.145.183.175]) by mail3.uklinux.net (Postfix) with ESMTP id 244291F68EF; Thu, 17 Jan 2008 23:02:22 +0000 (GMT) Original-Received: from laruns (unknown [192.168.0.10]) by arudy (Postfix) with ESMTP id 5C9D43800A; Thu, 17 Jan 2008 23:02:21 +0000 (GMT) In-Reply-To: (Gregory Marton's message of "Thu, 17 Jan 2008 16:54:53 -0500 (EST)") User-Agent: Gnus/5.110006 (No Gnus v0.6) Emacs/21.4 (gnu/linux) X-detected-kernel: by monty-python.gnu.org: Linux 2.4-2.6 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:3704 Archived-At: Gregory Marton writes: > Ack. I think I meant to replace assoc as well, with something like > (lambda (k alist) (cdar alist)). That wouldn't be assoc-like. (lambda (k al) (car al)) accesses the correct level of alist structure, but would fault in the case where al is empty. So perhaps: (lambda (k al) (and (not (null? al)) (car al))). With this, the test passes - are you happy with that? Thanks, Neil