Changeset 3724 for src/Main.hs
- Timestamp:
- 05/23/05 13:09:12 (4 years ago)
- svk:copy_cache_prev:
- 5313
- Files:
-
- 1 modified
-
src/Main.hs (modified) (2 diffs)
Legend:
- Unmodified
- Added
- Removed
-
src/Main.hs
r3675 r3724 32 32 import Data.IORef 33 33 34 -- |Pugs' entry point. Uses 'Pugs.Run.runWithArgs' to normalise the command-line 35 -- arguments and pass them to 'run'. 34 {-| 35 Pugs' entry point. Uses 'Pugs.Run.runWithArgs' to normalise the command-line 36 arguments and pass them to 'run'. 37 -} 36 38 main :: IO () 37 39 main = do … … 135 137 CmdReset -> tabulaRasa >>= (liftSTM . writeTVar env) >> loop 136 138 137 -- |Create a \'blank\' 'Env' for our program to execute in. Of course, 138 -- 'prepareEnv' actually declares quite a few symbols in the environment, 139 -- e.g. \'\@\*ARGS\', \'\$\*PID\', \'\$\*ERR\' etc. 140 -- ('Tabula rasa' is Latin for 'a blank slate'.) 139 {-| 140 Create a \'blank\' 'Env' for our program to execute in. Of course, 141 'prepareEnv' actually declares quite a few symbols in the environment, 142 e.g. \'\@\*ARGS\', \'\$\*PID\', \'\$\*ERR\' etc. 143 144 ('Tabula rasa' is Latin for 'a blank slate'.) 145 -} 141 146 tabulaRasa :: IO Env 142 147 tabulaRasa = prepareEnv "<interactive>" []
