bare: addinng support for maps

diff --git a/extra/bare/bare.factor b/extra/bare/bare.factor
index e18d6cf1b1bbf2e186d2e8108bb061077d78ff0d..75dbf9565172fd84c21694b738d6d3b90e15923f 100644 (file)
--- a/extra/bare/bare.factor
+++ b/extra/bare/bare.factor
@@ -69,6 +69,11 @@ M: list write-bare
     [ length>> [ dup length uint write-bare ] unless ]
     [ type>> '[ _ write-bare ] each ] bi ;
 
+M: map write-bare
+    over assoc-size uint write-bare
+    [ from>> ] [ to>> ] bi [ write-bare ] bi-curry@
+    '[ _ _ bi* ] assoc-each ;
+
 GENERIC: read-bare ( schema -- obj )
 
 M: uint read-bare
@@ -117,6 +122,11 @@ M: list read-bare
     [ length>> [ uint read-bare ] unless* ]
     [ type>> '[ _ read-bare ] replicate ] bi ;
 
+M: map read-bare
+    [ uint read-bare ] dip
+    [ from>> ] [ to>> ] bi [ read-bare ] bi-curry@
+    '[ @ @ 2array ] replicate ;
+
 M: union read-bare
     [ uint read-bare ] dip members>> value-at read-bare ;