From 9af29b8d14a218c9ee583a69f7b44a0e46e22c13 Mon Sep 17 00:00:00 2001
From: David Thompson <dthompson2@worcester.edu>
Date: Fri, 30 Nov 2018 12:17:11 -0500
Subject: Remove json-assoc-ref procedure.

---
 aws/cloudformation/utils/json.scm | 7 +------
 1 file changed, 1 insertion(+), 6 deletions(-)

(limited to 'aws')

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))
-- 
cgit v1.2.3