summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-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)