Initial commit

1 files changed, 19 insertions, 0 deletions

diff --git a/lib/zambyte/meta/macduffie.scm b/lib/zambyte/meta/macduffie.scm
new file mode 100644
index 0000000..f80ea18
--- /dev/null
+++ b/lib/zambyte/meta/macduffie.scm
@@ -0,0 +1,19 @@
+(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))