From 91adcf023b0c2684991161661032e1aae3cd6b0c Mon Sep 17 00:00:00 2001 From: Robby Zambito Date: Sun, 12 Feb 2023 01:30:42 -0500 Subject: Initial commit --- lib/zambyte/meta/gerbil.scm | 23 +++++++++++++++++++++++ 1 file changed, 23 insertions(+) create mode 100644 lib/zambyte/meta/gerbil.scm (limited to 'lib/zambyte/meta/gerbil.scm') 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)) -- cgit