Changeset 2771 for src/Main.hs
- Timestamp:
- 05/06/05 15:07:18 (4 years ago)
- svk:copy_cache_prev:
- 4271
- Files:
-
- 1 modified
-
src/Main.hs (modified) (1 diff)
Legend:
- Unmodified
- Added
- Removed
-
src/Main.hs
r2770 r2771 223 223 makeDumpEnv (Sym x y exp) = Sym x y $ makeDumpEnv exp 224 224 makeDumpEnv (Pos x exp) = Pos x $ makeDumpEnv exp 225 makeDumpEnv (Parens exp) = Parens $ makeDumpEnv exp226 225 makeDumpEnv exp = Stmts exp (Syn "env" []) 227 226 handler err = if not (isUserError err) then ioError err else do
