Changeset 5266 for src/Main.hs

Timestamp:

07/07/05 07:44:01 (4 years ago)

Author:

autrijus

svk:copy_cache_prev:

7266

Message:

* Finish the transition from @?CHECK and @?INIT to

@*CHECK and @*INIT.

Files:

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

src/Main.hs

@@ -89 +89 @@
 --   "-e foo bar.p6" executes "foo" with @*ARGS[0] eq "bar.p6",
 --   "-E foo bar.p6" executes "foo" and then bar.p6.
+-- XXX - Wrong -- Need to preserve environment across -E runs
 run (("-E"):prog:rest)          = run ("-e":prog:[]) >> run rest
 run ("-":args)                  = do doRun "-" args =<< readStdin