Initial commit

1 files changed, 23 insertions, 0 deletions

diff --git a/lib/zambyte/meta/gerbil.scm b/lib/zambyte/meta/gerbil.scm
new file mode 100644
index 0000000..00f7b0e
--- /dev/null
+++ b/lib/zambyte/meta/gerbil.scm
@@ -0,0 +1,23 @@
+(import (std text json)
+	(scheme hash-table))
+(begin
+  (define string->json string->json-object)
+  (define json->string json-object->string)
+
+  (define (json-object . pairs)
+    (alist->hash-table pairs equal?))
+
+  (define json-list list)
+  (define json-null #!void)
+  (define json-object? hash-table?)
+  (define json-list? list?)
+
+  (define (json-null? obj)
+    (eq? obj json-null))
+
+  (define (json-object-ref json key)
+    (hash-table-ref json (string->symbol key)))
+
+  (define json-list-ref list-ref)
+  (define json-object->alist hash-table->alist)
+  (define json-list->list values))