From c857477e0585b14a8ecba3d57d45e961449c2a90 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Juan=20Manuel=20Tom=C3=A1s?= <jtomas1815@gmail.com>
Date: Mon, 7 Aug 2023 01:12:17 -0300
Subject: Take empty objects into account

---
 load.lisp | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'load.lisp')

diff --git a/load.lisp b/load.lisp
index f8566bb..4acfede 100644
--- a/load.lisp
+++ b/load.lisp
@@ -78,10 +78,10 @@
 (defparameter json-object
   (let ((json-pair
           (comp ((_ whitespace)
-                 (k (crit string-literal))
+                 (k string-literal)
                  (_ whitespace)
                  (_ (crit (unit #\:)))
-                 (v json-value))
+                 (v (crit json-value)))
             (cons k v))))
     (comp ((_ (unit #\{))
            (vn (optional (separated-list json-pair (unit #\,))))
-- 
cgit v1.2.3