1 files changed, 10 insertions, 4 deletions
diff --git a/lib/zambyte/meta/macduffie.scm b/lib/zambyte/meta/macduffie.scm
index f80ea18..8a42183 100644
--- a/lib/zambyte/meta/macduffie.scm
+++ b/lib/zambyte/meta/macduffie.scm
@@ -2,9 +2,6 @@
 		(json-null md:json-null))
 	(srfi 69))
 (begin
-  (define string->json json-read-string)
-  (define json->string json-write-string)
-
   (define (json-object . pairs)
     (alist->hash-table pairs))
 
@@ -13,7 +10,16 @@
   (define json-object? hash-table?)
   (define json-list? list?)
   ;; json-null? already defined in macduffie json
-  (define json-object-ref hash-table-ref)
+  (define json-object-contains-key? hash-table-exists?)
+  (define string->json json-read-string)
+  (define json->string json-write-string)
+
+  (define (json-object-ref json key)
+    (or (and (hash-table-exists? json key)
+	     (hash-table-ref json key))
+	((json-key-not-found))))
+
   (define json-list-ref list-ref)
+  (define json-list-length length)
   (define json-object->alist hash-table->alist)
   (define json-list->list values))