Changeset 3663 for src/Main.hs

Timestamp:

05/22/05 18:17:22 (4 years ago)

Author:

iblech

svk:copy_cache_prev:

5201

Message:

* CHECK {...} in void context and as a rvalue works. :)
* Added a test for CHECK (t/statements/check.t).
* "." in interactive Pugs uses an prepared env now (tabulaRasa).
* Usual svn properties.

Files:

• src/Main.hs (modified) (1 diff)

src/Main.hs

@@ -188 +188 @@
 doParse :: (Exp -> String) -> FilePath -> String -> IO ()
 doParse prettyFunc name prog = do
-    env <- emptyEnv name []
+    env <- tabulaRasa
     case runRule env envBody ruleProgram name (decodeUTF8 prog) of
         (Val err@(VError _ _)) -> putStrLn $ pretty err