(import (rename (macduffie json)
		(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))

  (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-ref hash-table-ref)
  (define json-list-ref list-ref)
  (define json-object->alist hash-table->alist)
  (define json-list->list values))