Skip to content
Browse files

Accept , as vector separator.

  • Loading branch information...
1 parent aedd46b commit 6ece0edd409c60982b0e7192b8dcfe52d176b239 @marcotmarcot committed Oct 11, 2012
Showing with 2 additions and 1 deletion.
  1. +2 −1 Scilab/Parser.hs
View
3 Scilab/Parser.hs
@@ -184,7 +184,8 @@ literal_str
return $ EStr s
vec_expr :: Parser Expr
-vec_expr = token TOSB >> EVec <$> many expr <* token TCSB
+vec_expr
+ = token TOSB >> EVec <$> sepBy expr (optional $ token TComma) <* token TCSB
call_expr :: (T.Text -> a) -> (T.Text -> [Expr] -> a) -> Parser a
call_expr cvar ccall = try (liftM2 ccall iden parameters) <|> cvar <$> iden

0 comments on commit 6ece0ed

Please sign in to comment.
Something went wrong with that request. Please try again.