Remove json-assoc-ref procedure.

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))