Fix errors in gauche implementation

Fix typo in error message

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))