diff options
Diffstat (limited to 'lib/zambyte/meta/guile.scm')
-rw-r--r-- | lib/zambyte/meta/guile.scm | 28 |
1 files changed, 0 insertions, 28 deletions
diff --git a/lib/zambyte/meta/guile.scm b/lib/zambyte/meta/guile.scm deleted file mode 100644 index 1e41f9c..0000000 --- a/lib/zambyte/meta/guile.scm +++ /dev/null @@ -1,28 +0,0 @@ -(import (json) - (srfi 1)) -(begin - (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-cointains-key? obj key) - (and (assoc key obj) #t)) - - (define string->json json-string->scm) - (define json->string scm->json-string) - - (define (json-object-ref json key) - (let ((pair (assoc key json))) - (if pair - (cdr pair) - ((json-key-not-found))))) - - (define json-list-ref vector-ref) - (define json-list-length vector-length) - (define json-object->alist values) - (define json-list->list vector->list)) |