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/guile.scm | 22 ++++++++++++++++++++++ 1 file changed, 22 insertions(+) create mode 100644 lib/zambyte/meta/guile.scm (limited to 'lib/zambyte/meta/guile.scm') diff --git a/lib/zambyte/meta/guile.scm b/lib/zambyte/meta/guile.scm new file mode 100644 index 0000000..cbd998b --- /dev/null +++ b/lib/zambyte/meta/guile.scm @@ -0,0 +1,22 @@ +(import (json) + (srfi 1) + (srfi 2)) +(begin + (define string->json json-string->scm) + (define json->string scm->json-string) + (define json-object list) + (define json-list vector) + (define json-null 'null) + (define json-object? list?) + (define json-list? vector?) + + (define (json-null? obj) + (eq? obj json-null)) + + (define (json-object-ref json key) + (and-let* ((pair (assoc key json))) + (cdr pair))) + + (define json-list-ref vector-ref) + (define json-object->alist values) + (define json-list->list vector->list)) -- cgit