From 02a366bd9718005defa4bf3e22e2848f02ef9682 Mon Sep 17 00:00:00 2001
From: Arun Isaac
Date: Tue, 27 Dec 2022 01:15:34 +0000
Subject: document: Support symbol serialization and deserialization.

* tissue/document.scm (object->scm, scm->object): Support symbols.
---
 tissue/document.scm | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

(limited to 'tissue')

diff --git a/tissue/document.scm b/tissue/document.scm
index 38270a5..c05e40f 100644
--- a/tissue/document.scm
+++ b/tissue/document.scm
@@ -87,7 +87,8 @@ mutate @var{object}."
 (define (object->scm object)
   "Convert GOOPS OBJECT to a serializable object."
   (cond
-   ((or (string? object)
+   ((or (symbol? object)
+        (string? object)
         (number? object)
         (boolean? object))
     object)
@@ -107,7 +108,8 @@ mutate @var{object}."
 (define (scm->object scm)
   "Convert serializable object SCM to a GOOPS object."
   (cond
-   ((or (string? scm)
+   ((or (symbol? scm)
+        (string? scm)
         (number? scm)
         (boolean? scm))
     scm)
-- 
cgit v1.2.3