diff options
| author | David Thompson <dthompson2@worcester.edu> | 2018-11-30 12:17:11 -0500 |
|---|---|---|
| committer | David Thompson <dthompson2@worcester.edu> | 2018-11-30 12:17:29 -0500 |
| commit | 9af29b8d14a218c9ee583a69f7b44a0e46e22c13 (patch) | |
| tree | 8e5ee73703f05e0adecca75929035a1d602a0911 /aws/cloudformation/utils | |
| parent | eea9dd7be5a5e2d79e2d42d15da5125e66946969 (diff) | |
Remove json-assoc-ref procedure.
Diffstat (limited to 'aws/cloudformation/utils')
| -rw-r--r-- | aws/cloudformation/utils/json.scm | 7 |
1 files changed, 1 insertions, 6 deletions
diff --git a/aws/cloudformation/utils/json.scm b/aws/cloudformation/utils/json.scm index 11ca6bf..1b30e51 100644 --- a/aws/cloudformation/utils/json.scm +++ b/aws/cloudformation/utils/json.scm @@ -19,12 +19,7 @@ (define-module (aws cloudformation utils json) #:use-module (ice-9 match) - #:export (read-json json-assoc-ref write-json)) - -(define (json-assoc-ref json key) - (match (assoc-ref json key) - (('@ . alist) alist) - (x x))) + #:export (read-json write-json)) (define (json-error port) (throw 'json-error port)) |