From 54b82e79fb586578dadd90c5d3853909a49b3156 Mon Sep 17 00:00:00 2001 From: Arun Isaac Date: Wed, 13 Jul 2022 01:36:22 +0530 Subject: document: Tolerate unbound slots when serializing. * tissue/document.scm (object->scm): Drop unbound slots, do not raise an error. --- tissue/document.scm | 13 ++++++------- 1 file changed, 6 insertions(+), 7 deletions(-) diff --git a/tissue/document.scm b/tissue/document.scm index 52bf34f..ada72eb 100644 --- a/tissue/document.scm +++ b/tissue/document.scm @@ -95,13 +95,12 @@ that operates on a copy of OBJECT. It does not mutate OBJECT." (list->vector (map object->scm object))) (else (cons (cons 'type (class-name (class-of object))) - (map (lambda (slot) - (let* ((slot-name (slot-definition-name slot)) - (value (if (slot-bound? object slot-name) - (slot-ref object slot-name) - (goops-error "Unbound slot ~s in ~s" slot-name object)))) - (cons slot-name (object->scm value)))) - (class-slots (class-of object))))))) + (filter-map (lambda (slot) + (if (slot-bound? object (slot-definition-name slot)) + (cons (slot-definition-name slot) + (object->scm (slot-ref object (slot-definition-name slot)))) + #f)) + (class-slots (class-of object))))))) (define (scm->object scm) "Convert serializable object SCM to a GOOPS object." -- cgit v1.2.3