summaryrefslogtreecommitdiff
path: root/lib/zambyte/meta/guile.scm
diff options
context:
space:
mode:
authorRobby Zambito <contact@robbyzambito.me>2023-02-16 09:12:17 -0500
committerRobby Zambito <contact@robbyzambito.me>2023-02-16 09:12:17 -0500
commit73a0cba3f4d4fa825a21332fbcc159e68cd3a1ea (patch)
tree4c9b55f847ec48c049fa56a2aec6e699e0e82393 /lib/zambyte/meta/guile.scm
parent7bf0fa24e0df6949d2e1f6c57fb67539d674810a (diff)
Rename guile.scm to guile-json.scm
This will avoid any potential conflicts from other zambyte/meta/guile.scm files.
Diffstat (limited to 'lib/zambyte/meta/guile.scm')
-rw-r--r--lib/zambyte/meta/guile.scm28
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))