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