Add json-object-contains-key?, json-list-length, and json-key-not-found.

Update README accordingly and with add examples.

1 files changed, 10 insertions, 5 deletions

diff --git a/lib/zambyte/meta/chibi.scm b/lib/zambyte/meta/chibi.scm
index 49f72f6..fc8e942 100644
--- a/lib/zambyte/meta/chibi.scm
+++ b/lib/zambyte/meta/chibi.scm
@@ -2,9 +2,6 @@
 	(srfi 1)
 	(srfi 2))
 (begin
-  ;; json->string already defined in chibi json
-  ;; string->json already defined in chibi json
-
   (define (json-object . pairs)
     (map
      (lambda (pair)
@@ -16,14 +13,22 @@
   (define json-object? list?)
   (define json-list? vector?)
 
+  (define (json-object-contains-key? obj key)
+    (and (assoc (string->symbol key) obj) #t))
+
   (define (json-null? obj)
     (eq? obj json-null))
 
+  ;; json->string already defined in chibi json
+  ;; string->json already defined in chibi json
+
   (define (json-object-ref json key)
-    (and-let* ((pair (assoc (string->symbol key) json)))
-      (cdr pair)))
+    (or (and-let* ((pair (assoc (string->symbol key) json)))
+	  (cdr pair))
+	((json-key-not-found))))
 
   (define json-list-ref vector-ref)
+  (define json-list-length vector-length)
 
   (define (json-object->alist json)
     (map