From 3fd13aa00ea540369ca7dfc9347b46d29e9f53a5 Mon Sep 17 00:00:00 2001 From: Robby Zambito Date: Sat, 18 Feb 2023 00:03:49 -0500 Subject: Fix errors in gauche implementation Fix typo in error message --- lib/zambyte/meta/gauche.scm | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'lib/zambyte') 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)) -- cgit