diff options
| author | Arun Isaac | 2022-12-27 01:15:34 +0000 |
|---|---|---|
| committer | Arun Isaac | 2022-12-27 01:15:34 +0000 |
| commit | 02a366bd9718005defa4bf3e22e2848f02ef9682 (patch) | |
| tree | 9a3da4f0b29700d01ef5873ec6b3b08d190301bf | |
| parent | 3f3c210cdd4c2e8ec3590319616ad4f8c522fb54 (diff) | |
| download | tissue-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.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) |