handle empty dictionaries

wjackson · Aug 23, 2012 · a974129 · a974129
1 parent 9fa2cf8
commit a974129
Show file tree

Hide file tree

Showing 2 changed files with 6 additions and 4 deletions.
diff --git a/kparse.c b/kparse.c
@@ -182,11 +182,8 @@ SV* xd_from_k(K k) {
     if (kK(k)[0]->t == XT && kK(k)[1]->t == XT) {
         return ptable_from_k(k);
     }
-    else if (kK(k)[0]->t == KS) {
-        return dict_from_k(k);
-    }
     else {
-        croak("Unrecognized XD (dictionary) form");
+        return dict_from_k(k);
     }
 }
 

diff --git a/t/raw.t b/t/raw.t
@@ -233,6 +233,11 @@ sub dict_test {
         k($handle, '`foo`bar!(0n;`)'),
         { foo => undef, bar => undef },
         'parse dictionary w/ null values';
+
+    is_deeply
+        k($handle, '()!()'),
+        {},
+        'parse empty dictionary';
 }
 
 sub table_test {