diff options
Diffstat (limited to 'lib/zambyte/meta/gauche.scm')
| -rw-r--r-- | lib/zambyte/meta/gauche.scm | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/lib/zambyte/meta/gauche.scm b/lib/zambyte/meta/gauche.scm index ae65be7..f27bc5b 100644 --- a/lib/zambyte/meta/gauche.scm +++ b/lib/zambyte/meta/gauche.scm @@ -78,19 +78,19 @@ (call-with-values (lambda () (proc (string->symbol (car pair)) (cdr pair))) (case-lambda ((key value) (cons (symbol->string key) value)) - (_ (error "json-objec-map: proc did not return two values"))))) + (_ (error "json-object-map: proc did not return two values"))))) json)) (define json-list-map vector-map) (define (json-object->alist obj) (cond - ((list? json) + ((list? obj) (map (lambda (pair) (cons (string->symbol (car pair)) (cdr pair))) obj)) - ((json-record? json) (json-object->alist (json->typeless-json obj))) - (else (error "json-object->alist: not an object" json)))) + ((json-record? obj) (json-object->alist (json->typeless-json obj))) + (else (error "json-object->alist: not an object" obj)))) (define json-list->list vector->list)) |