(import (rename (macduffie json)
		(json-null md:json-null))
	(srfi 69))
(begin
  (define (json-object . pairs)
    (alist->hash-table pairs))

  (define json-list list)
  (define json-null (md:json-null))
  (define json-object? hash-table?)
  (define json-list? list?)
  ;; json-null? already defined in macduffie json
  (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)
    (if (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))