summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorArun Isaac2022-12-27 01:15:34 +0000
committerArun Isaac2022-12-27 01:15:34 +0000
commit02a366bd9718005defa4bf3e22e2848f02ef9682 (patch)
tree9a3da4f0b29700d01ef5873ec6b3b08d190301bf
parent3f3c210cdd4c2e8ec3590319616ad4f8c522fb54 (diff)
downloadtissue-02a366bd9718005defa4bf3e22e2848f02ef9682.tar.gz
tissue-02a366bd9718005defa4bf3e22e2848f02ef9682.tar.lz
tissue-02a366bd9718005defa4bf3e22e2848f02ef9682.zip
document: Support symbol serialization and deserialization.
* tissue/document.scm (object->scm, scm->object): Support symbols.
-rw-r--r--tissue/document.scm6
1 files changed, 4 insertions, 2 deletions
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)