From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.io!.POSTED.blaine.gmane.org!not-for-mail From: Taylan Kammer Newsgroups: gmane.lisp.guile.bugs Subject: bug#72381: srfi-64: test-result-remove fails to remove property Date: Wed, 2 Oct 2024 00:37:59 +0200 Message-ID: <9e703fd1-c0a1-4fa9-b55f-b1be07024409@gmail.com> References: Mime-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit Injection-Info: ciao.gmane.io; posting-host="blaine.gmane.org:116.202.254.214"; logging-data="10093"; mail-complaints-to="usenet@ciao.gmane.io" User-Agent: Mozilla Thunderbird To: Tomas Volf <~@wolfsden.cz>, 72381@debbugs.gnu.org Original-X-From: bug-guile-bounces+guile-bugs=m.gmane-mx.org@gnu.org Wed Oct 02 00:40:22 2024 Return-path: Envelope-to: guile-bugs@m.gmane-mx.org Original-Received: from lists.gnu.org ([209.51.188.17]) by ciao.gmane.io with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.92) (envelope-from ) id 1svlXa-0002TD-3S for guile-bugs@m.gmane-mx.org; Wed, 02 Oct 2024 00:40:22 +0200 Original-Received: from localhost ([::1] helo=lists1p.gnu.org) by lists.gnu.org with esmtp (Exim 4.90_1) (envelope-from ) id 1svlXI-0004Y7-L9; Tue, 01 Oct 2024 18:40:04 -0400 Original-Received: from eggs.gnu.org ([2001:470:142:3::10]) by lists.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) (envelope-from ) id 1svlXH-0004Xz-B3 for bug-guile@gnu.org; Tue, 01 Oct 2024 18:40:03 -0400 Original-Received: from debbugs.gnu.org ([2001:470:142:5::43]) by eggs.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_128_GCM_SHA256:128) (Exim 4.90_1) (envelope-from ) id 1svlXH-0005cE-1l for bug-guile@gnu.org; Tue, 01 Oct 2024 18:40:03 -0400 DKIM-Signature: v=1; a=rsa-sha256; q=dns/txt; c=relaxed/relaxed; d=debbugs.gnu.org; s=debbugs-gnu-org; h=In-Reply-To:From:References:MIME-Version:Date:To:Subject; bh=iPkJta6f8ifRyP7bJGWo0ZQaK2B0t/5wydE3U2wNd9g=; b=rUFtmD/hqxPPK0BQUu8zG62Fqph5pa14J85u8Iw19hN8Qea/MCd2uJHadoutnKujGOyBp43Bmy8INZy6mfUHPNWV9JRCLiRb8LuyPIgmIhhN/vHx2BeUN79fcG/AjBU7HFWcY/3TWgOMFItTAjDpiDzBexBqz8KijSoqrm5EIVVXGerMUid6zXf9TrHFmturyxK26rgkmsruk47HEU5ZoanyKXL3hvpQjCD+aPZQah8AZBAz9td69YpwSQFYV1p4dWICm+r4Df4C43C6s8mcg0fsqUkc7lzBtcy3rnmOY3ReYpDiMJYp0EhQ48ti0CToIn8TMGM4nFOEcrFAiIKKWA==; Original-Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.84_2) (envelope-from ) id 1svlXG-0006aU-Jn for bug-guile@gnu.org; Tue, 01 Oct 2024 18:40:02 -0400 X-Loop: help-debbugs@gnu.org Resent-From: Taylan Kammer Original-Sender: "Debbugs-submit" Resent-CC: bug-guile@gnu.org Resent-Date: Tue, 01 Oct 2024 22:40:02 +0000 Resent-Message-ID: Resent-Sender: help-debbugs@gnu.org X-GNU-PR-Message: followup 72381 X-GNU-PR-Package: guile Original-Received: via spool by 72381-submit@debbugs.gnu.org id=B72381.172782234925294 (code B ref 72381); Tue, 01 Oct 2024 22:40:02 +0000 Original-Received: (at 72381) by debbugs.gnu.org; 1 Oct 2024 22:39:09 +0000 Original-Received: from localhost ([127.0.0.1]:54138 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1svlWP-0006Zu-Bw for submit@debbugs.gnu.org; Tue, 01 Oct 2024 18:39:09 -0400 Original-Received: from mail-wm1-f51.google.com ([209.85.128.51]:39859) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1svlWM-0006ZV-U2 for 72381@debbugs.gnu.org; Tue, 01 Oct 2024 18:39:07 -0400 Original-Received: by mail-wm1-f51.google.com with SMTP id 5b1f17b1804b1-42cacd90ee4so8840045e9.3 for <72381@debbugs.gnu.org>; Tue, 01 Oct 2024 15:39:07 -0700 (PDT) DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=gmail.com; s=20230601; t=1727822281; x=1728427081; darn=debbugs.gnu.org; h=content-transfer-encoding:in-reply-to:from:content-language :references:to:subject:user-agent:mime-version:date:message-id:from :to:cc:subject:date:message-id:reply-to; bh=iPkJta6f8ifRyP7bJGWo0ZQaK2B0t/5wydE3U2wNd9g=; b=bWacpzFOoljqMITEA65L4WMnRdgXLStptLl7WLhj6zrSgEQcvVtPMdGcOEq+TBrn6i sld2e0OlqlBDKz9x3hhpq+yG49MIf2INDY2cpZVRxvi6lA242MygMTkF9/dwuz8RdIgh RxcDDQW/C2BsoExlFbOob7S5Zl4auaWCpSu5zvxIlT+GqgjhGbNa08Rj7y0bEmtSvW6I UQF9wpQJ9WJ2Htl933Ll9LDtJqF1VuBMmfJJ0Xlv/S8C/CFXXFrYCeiQNuy3FQUFrDtd 9l8ckWF2F8rdG3eb415RpQhjlyvQfj435xtTrnTyHIQS1sgLotmRTpADIaiYWt9IFNIL usKQ== X-Google-DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=1e100.net; s=20230601; t=1727822281; x=1728427081; h=content-transfer-encoding:in-reply-to:from:content-language :references:to:subject:user-agent:mime-version:date:message-id :x-gm-message-state:from:to:cc:subject:date:message-id:reply-to; bh=iPkJta6f8ifRyP7bJGWo0ZQaK2B0t/5wydE3U2wNd9g=; b=XMUr+FXVe08Ck8eF9kOmiSavfQ+IeGbjhWejs2iKy9i5ELCGT3qzruD2lKfV8HIiRa tGO1feSO0NFba6QTG3Zma8ktNgGsHuNPWGdTca2X9YAHI31RJs2O7OpBlMFfGnYLbUYB Qqq2hsfLzJsBK0BEK60jwv3YkrqkxZqfotiph9zzlG84oHlDRBREIV9umkb9hk9kRW1g WLPmu00/ZN1ypKXzzZixCVFSiQyijQv3u78ESt8tUKXVZaLmJ/ooT7eIRyVUNL4sHoG6 +VDrFcwBeNag2+U/pUfyaVQPK5lSO8S6jTOrUI/qfHLF0duFwa7391rzAn/VPy2sOpJ1 yWvA== X-Forwarded-Encrypted: i=1; AJvYcCWwHpjw+WuoSFZ+N9C2qxVEXDjpEmeKcwtDhSiG0Dq11h0CYNSunn8VpMAkpLY+cvUMSYmLWw==@debbugs.gnu.org X-Gm-Message-State: AOJu0YwiTq++bFK2Ne6vjxk4z0nZfZ14pN8G3Ze3wIETAz+ZJdJWKb+j 6lz5/BD+5N68/n1TegPjd1L8w9tNzMk5ntlQmlP8xFONDnWCc4Ah2qeSNl2WhIw= X-Google-Smtp-Source: AGHT+IHJM19ut9K8EBDpV9Ny7cU6wKueaLPoJPrZ1TZNm0JYHzD2Axpmn1WMmfXDh0tTHh9Dt3S9tQ== X-Received: by 2002:a5d:59a8:0:b0:375:bb30:6518 with SMTP id ffacd0b85a97d-37cfb8b6238mr382554f8f.1.1727822281297; Tue, 01 Oct 2024 15:38:01 -0700 (PDT) Original-Received: from ?IPV6:2003:106:8f04:c300:95ac:529d:6db3:196b? (p200301068f04c30095ac529d6db3196b.dip0.t-ipconnect.de. [2003:106:8f04:c300:95ac:529d:6db3:196b]) by smtp.gmail.com with ESMTPSA id 4fb4d7f45d1cf-5c88245e763sm6765879a12.50.2024.10.01.15.38.00 (version=TLS1_3 cipher=TLS_AES_128_GCM_SHA256 bits=128/128); Tue, 01 Oct 2024 15:38:00 -0700 (PDT) Content-Language: en-US In-Reply-To: X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.18 Precedence: list X-BeenThere: bug-guile@gnu.org 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-mx.org@gnu.org Original-Sender: bug-guile-bounces+guile-bugs=m.gmane-mx.org@gnu.org Xref: news.gmane.io gmane.lisp.guile.bugs:11012 Archived-At: On 30.07.2024 21:51, Tomas Volf wrote: > Hello, > > I think I found a bug in (srfi srfi-64) module shipped with GNU Guile. > > When I try to remove a property from the result alist using this code: > > (use-modules (srfi srfi-64)) > (let ((r (test-runner-null))) > (test-result-set! r 'arstars 'a) > (test-result-remove r 'arstars)) > > I get the following error: > > Backtrace: > In ice-9/boot-9.scm: > 1752:10 8 (with-exception-handler _ _ #:unwind? _ #:unwind-for-type _) > In unknown file: > 7 (apply-smob/0 #) > In ice-9/boot-9.scm: > 724:2 6 (call-with-prompt _ _ #) > In ice-9/eval.scm: > 619:8 5 (_ #(#(#))) > In ice-9/boot-9.scm: > 2836:4 4 (save-module-excursion _) > 4388:12 3 (_) > In srfi/srfi-64/testing.scm: > 546:35 2 (test-result-remove # …) > 548:55 1 (loop ((arstars . a))) > 548:47 0 (loop ()) > > srfi/srfi-64/testing.scm:548:47: In procedure loop: > In procedure car: Wrong type argument in position 1 (expecting pair): () > > From cursory look at the `test-result-remove' source, is seems that the named > let `loop' is missing a stop condition? > > Have a nice day > Tomas Volf > > Your diagnosis sounds correct to me. A null check should fix it. However, it's already fixed in my SRFI-64 implementation, thanks to using clean coding practices such as: "Don't reinvent SRFI-1." :-) - Taylan