diff options
Diffstat (limited to 'split-spec.scm')
| -rw-r--r-- | split-spec.scm | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/split-spec.scm b/split-spec.scm index cf45581..6396d1f 100644 --- a/split-spec.scm +++ b/split-spec.scm @@ -22,7 +22,7 @@ (define spec (call-with-input-file "cloudformation-spec.json" read-json)) -(define spec-version (json-assoc-ref spec "ResourceSpecificationVersion")) +(define spec-version (assoc-ref spec "ResourceSpecificationVersion")) (define properties-by-service (make-hash-table)) (define resources-by-service (make-hash-table)) @@ -42,10 +42,10 @@ (for-each (lambda (property) (add-to-group properties-by-service property)) - (json-assoc-ref spec "PropertyTypes")) + (assoc-ref spec "PropertyTypes")) (for-each (lambda (property) (add-to-group resources-by-service property)) - (json-assoc-ref spec "ResourceTypes")) + (assoc-ref spec "ResourceTypes")) (define (hash-table-keys table) (hash-fold (lambda (k v memo) (cons k memo)) '() table)) |