bug#46522: [PATCH]: Return *unspecified* for define-wrapped-pointer-type.
Zhu Zihao <[email protected]>
| Newsgroups | gmane.lisp.guile.bugs |
|---|---|
| Message-ID | <[email protected]> |
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. -- Retrieve my PGP public key: gpg --recv-keys D47A9C8B2AE3905B563D9135BE42B352A9F6821F Zihao
signature.asc
(application/pgp-signature, 255 B)
-----BEGIN PGP SIGNATURE----- iIsEARYIADMWIQTUepyLKuOQW1Y9kTW+QrNSqfaCHwUCYCnyJxUcYWxsX2J1dF9s YXN0QDE2My5jb20ACgkQvkKzUqn2gh/eUQD+NcNALWfQf0Yak9wihxpV4+OMdrfM 8xIV4KgZzNqBef8BAJhrCAmO9KFcfopm8Etp3/eaeJyhRxt0lPDIns5R2bIA =6j9k -----END PGP SIGNATURE-----
0001-Return-unspecified-for-define-wrapped-pointer-type.patch
(text/x-patch, 946 B)
From b31a5511c530e6b255d3eadf7bae55893eacf3ea Mon Sep 17 00:00:00 2001 From: Zhu Zihao <[email protected]> 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