diff options
| author | Robby Zambito <contact@robbyzambito.me> | 2023-02-12 22:46:48 -0500 |
|---|---|---|
| committer | Robby Zambito <contact@robbyzambito.me> | 2023-02-12 22:46:48 -0500 |
| commit | b1294088059fe22d1a05d0f9637fdd598795d8ea (patch) | |
| tree | 2031c4c455d3e26c4ab985eae678de7abc1a0042 /lib/zambyte/meta/json.sld | |
| parent | 91adcf023b0c2684991161661032e1aae3cd6b0c (diff) | |
Add json-object-contains-key?, json-list-length, and json-key-not-found.
Update README accordingly and with add examples.
Diffstat (limited to 'lib/zambyte/meta/json.sld')
| -rw-r--r-- | lib/zambyte/meta/json.sld | 18 |
1 files changed, 12 insertions, 6 deletions
diff --git a/lib/zambyte/meta/json.sld b/lib/zambyte/meta/json.sld index 0313516..58479e8 100644 --- a/lib/zambyte/meta/json.sld +++ b/lib/zambyte/meta/json.sld @@ -1,21 +1,25 @@ (define-library (zambyte meta json) ;; portable (export json-ref - json-value?) - ;; non-portable - (export string->json - json->string + json-value? - json-object + json-key-not-found) + ;; non-portable + (export json-object json-list json-null json-object? json-list? json-null? + json-object-contains-key? + + string->json + json->string json-object-ref json-list-ref + json-list-length json-object->alist json-list->list) @@ -36,7 +40,9 @@ (string? obj) (json-null? obj) (json-list? obj) - (json-object? obj)))) + (json-object? obj))) + + (define json-key-not-found (make-parameter (lambda () (values))))) ;; non-portable (cond-expand ((and (library (macduffie json)) (srfi 69)) |