# HG changeset patch
# User unc0rr
# Date 1334948600 -14400
# Node ID a9126661f61318317c29f49f68eedc724981eb92
# Parent  23b38e530967bff68e5b5946fb46577f54cc31df
Fix parsing of exit() call without parameters

diff -r 23b38e530967 -r a9126661f613 tools/PascalParser.hs
--- a/tools/PascalParser.hs	Fri Apr 20 22:56:56 2012 +0400
+++ b/tools/PascalParser.hs	Fri Apr 20 23:03:20 2012 +0400
@@ -598,7 +598,7 @@
 builtInFunction e = do
     name <- choice $ map (\s -> try $ caseInsensitiveString s >>= \i -> notFollowedBy alphaNum >> return i) builtin
     spaces
-    exprs <- option [] $ parens pas $ commaSep1 pas $ e
+    exprs <- option [] $ parens pas $ option [] $ commaSep1 pas $ e
     spaces
     return (name, exprs)