bare: more liberal union schema parsing.

diff --git a/extra/bare/bare.factor b/extra/bare/bare.factor
index 9e6db39a39cc2abcae7928f40b96ca2a321a8b59..df4caf03bbdb61e49980d82eb67fc4796429394f 100644 (file)
--- a/extra/bare/bare.factor
+++ b/extra/bare/bare.factor
@@ -217,7 +217,7 @@ struct    = "struct"~ ws "{"~ ws~ struct-fields ws "}"~
 
 union-members = union-member (ws "|"~ ws union-member)* => [[ first2 swap prefix ]]
 union-member  = any-type (ws "="~ ws number)? => [[ >array ]]
-union     = "union"~ ws "{"~ (ws|"|")~ ws union-members ws ("|"|ws)~ "}"~
+union     = "union"~ ws "{"~ ws ("|"?)~ ws union-members ws ("|"?)~ ws "}"~
           => [[ assign-values union boa ]]
 
 aggregate = optional|list|map|struct|union