From 9af29b8d14a218c9ee583a69f7b44a0e46e22c13 Mon Sep 17 00:00:00 2001 From: David Thompson Date: Fri, 30 Nov 2018 12:17:11 -0500 Subject: Remove json-assoc-ref procedure. --- split-spec.scm | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'split-spec.scm') 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)) -- cgit v1.2.3