# HG changeset patch
# User unc0rr
# Date 1321465365 -10800
# Node ID 3dcb839b590456a75a8c4b0a85c387ed0c359015
# Parent  7d7703b26bda0644bb8ce9f5029dd1997483221f
Less code

diff -r 7d7703b26bda -r 3dcb839b5904 tools/PascalParser.hs
--- a/tools/PascalParser.hs	Wed Nov 16 19:25:25 2011 +0300
+++ b/tools/PascalParser.hs	Wed Nov 16 20:42:45 2011 +0300
@@ -482,12 +482,12 @@
 withBlock = do
     try $ string "with"
     comments
-    (r:rs) <- (commaSep1 pas) reference
+    rs <- (commaSep1 pas) reference
     comments
     string "do"
     comments
     o <- phrase
-    return $ WithBlock r (foldl (\ph r -> WithBlock r ph) o rs)
+    return $ foldr WithBlock o rs
     
 repeatCycle = do
     try $ string "repeat"