From unknown Sat Jun 14 03:49:43 2025 Content-Disposition: inline Content-Transfer-Encoding: quoted-printable MIME-Version: 1.0 X-Mailer: MIME-tools 5.509 (Entity 5.509) Content-Type: text/plain; charset=utf-8 From: bug#46522 <46522@debbugs.gnu.org> To: bug#46522 <46522@debbugs.gnu.org> Subject: Status: [PATCH]: Return *unspecified* for define-wrapped-pointer-type. Reply-To: bug#46522 <46522@debbugs.gnu.org> Date: Sat, 14 Jun 2025 10:49:43 +0000 retitle 46522 [PATCH]: Return *unspecified* for define-wrapped-pointer-type. reassign 46522 guile submitter 46522 Zhu Zihao severity 46522 normal tag 46522 patch thanks From debbugs-submit-bounces@debbugs.gnu.org Sun Feb 14 23:17:09 2021 Received: (at submit) by debbugs.gnu.org; 15 Feb 2021 04:17:09 +0000 Received: from localhost ([127.0.0.1]:37094 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1lBVJt-0004xF-HO for submit@debbugs.gnu.org; Sun, 14 Feb 2021 23:17:09 -0500 Received: from lists.gnu.org ([209.51.188.17]:55230) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1lBVJq-0004x5-43 for submit@debbugs.gnu.org; Sun, 14 Feb 2021 23:17:08 -0500 Received: from eggs.gnu.org ([2001:470:142:3::10]:46628) by lists.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) (envelope-from ) id 1lBVJp-00069G-V8 for bug-guile@gnu.org; Sun, 14 Feb 2021 23:17:05 -0500 Received: from m12-14.163.com ([220.181.12.14]:34522) by eggs.gnu.org with esmtps (TLS1.2:DHE_RSA_AES_256_CBC_SHA1:256) (Exim 4.90_1) (envelope-from ) id 1lBVJk-0002Hs-M4 for bug-guile@gnu.org; Sun, 14 Feb 2021 23:17:02 -0500 DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=163.com; s=s110527; h=From:Subject:Date:Message-ID:MIME-Version; bh=vs6A0 YTDcviS02g6OKcMCEQvO14jloAVD//eCPcoJF0=; b=A/GX4WORCypqtcHuJ8pl9 D9LrLtQ3OXZv6rUIOqXDg5KOyae1KEQ8uMYrivpwIONWgqrzONjVSGazk01fSC4H L6nimdQXs8b7eog74IlcaXilued6F2KG9Y/dICH9GCSFKP4vfWTS0NPUzK/nnRhF YkDHP4cIMlwyKxWj7sc0Vc= Received: from asus-laptop (unknown [113.102.101.252]) by smtp10 (Coremail) with SMTP id DsCowABHXkon8ilg7uDXkw--.4383S2; Mon, 15 Feb 2021 12:01:44 +0800 (CST) User-agent: mu4e 1.4.15; emacs 27.1 From: Zhu Zihao To: bug-guile@gnu.org Subject: [PATCH]: Return *unspecified* for define-wrapped-pointer-type. Date: Mon, 15 Feb 2021 12:01:43 +0800 Message-ID: <86v9auhtco.fsf@163.com> MIME-Version: 1.0 Content-Type: multipart/mixed; boundary="=-=-=" X-CM-TRANSID: DsCowABHXkon8ilg7uDXkw--.4383S2 X-Coremail-Antispam: 1Uf129KBjDUn29KB7ZKAUJUUUUU529EdanIXcx71UUUUU7v73 VFW2AGmfu7bjvjm3AaLaJ3UbIYCTnIWIevJa73UjIFyTuYvjxUwXo2DUUUU X-Originating-IP: [113.102.101.252] X-CM-SenderInfo: pdoosuxxwbztlvw6il2tof0z/1tbiTwg6r1sGXqjWsAAAsf Received-SPF: pass client-ip=220.181.12.14; envelope-from=all_but_last@163.com; helo=m12-14.163.com X-Spam_score_int: -20 X-Spam_score: -2.1 X-Spam_bar: -- X-Spam_report: (-2.1 / 5.0 requ) BAYES_00=-1.9, DKIM_SIGNED=0.1, DKIM_VALID=-0.1, DKIM_VALID_AU=-0.1, DKIM_VALID_EF=-0.1, FREEMAIL_FROM=0.001, RCVD_IN_DNSWL_NONE=-0.0001, RCVD_IN_MSPIKE_H3=-0.01, RCVD_IN_MSPIKE_WL=-0.01, SPF_HELO_NONE=0.001, SPF_PASS=-0.001 autolearn=ham autolearn_force=no X-Spam_action: no action X-Spam-Score: 0.5 (/) X-Debbugs-Envelope-To: submit X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.18 Precedence: list List-Id: List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: debbugs-submit-bounces@debbugs.gnu.org Sender: "Debbugs-submit" X-Spam-Score: -2.4 (--) --=-=-= Content-Type: multipart/signed; boundary="==-=-="; micalg=pgp-sha256; protocol="application/pgp-signature" --==-=-= Content-Type: text/plain In (system foreign), define-wrapped-pointer-type return the printer procedure. It's better to return *unspecified* just like define-record-type in srfi-9. --==-=-= Content-Type: application/pgp-signature; name="signature.asc" -----BEGIN PGP SIGNATURE----- iIsEARYIADMWIQTUepyLKuOQW1Y9kTW+QrNSqfaCHwUCYCnyJxUcYWxsX2J1dF9s YXN0QDE2My5jb20ACgkQvkKzUqn2gh/eUQD+NcNALWfQf0Yak9wihxpV4+OMdrfM 8xIV4KgZzNqBef8BAJhrCAmO9KFcfopm8Etp3/eaeJyhRxt0lPDIns5R2bIA =6j9k -----END PGP SIGNATURE----- --==-=-=-- --=-=-= Content-Type: text/x-patch Content-Disposition: inline; filename=0001-Return-unspecified-for-define-wrapped-pointer-type.patch >From b31a5511c530e6b255d3eadf7bae55893eacf3ea Mon Sep 17 00:00:00 2001 From: Zhu Zihao Date: Mon, 15 Feb 2021 11:56:13 +0800 Subject: [PATCH] Return *unspecified* for define-wrapped-pointer-type. * module/system/foreign.scm (define-wrapped-pointer-type): Return *unspecified*. --- module/system/foreign.scm | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/module/system/foreign.scm b/module/system/foreign.scm index d1c2ceb96..d8e0d44cc 100644 --- a/module/system/foreign.scm +++ b/module/system/foreign.scm @@ -197,4 +197,5 @@ which does the reverse. PRINT must name a user-defined object printer." (let ((o (%wrap ptr))) (hash-set! ptr->obj ptr o) o))))) - (set-record-type-printer! type-name print))))))) + (set-record-type-printer! type-name print) + *unspecified*)))))) -- 2.30.0 --=-=-= Content-Type: text/plain -- Retrieve my PGP public key: gpg --recv-keys D47A9C8B2AE3905B563D9135BE42B352A9F6821F Zihao --=-=-=--