diff options
| -rw-r--r-- | tissue/document.scm | 6 |
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) |