[Fencommits] fenserve: give non-assigned variables the default value '0'

[Benja Fallenstein]

Thu May 24 17:13:10 EEST 2007  Benja Fallenstein <benja.fallenstein at gmail.com>
  * give non-assigned variables the default value '0'
diff -rN -u old-fenserve/fendata/Main.hs new-fenserve/fendata/Main.hs
--- old-fenserve/fendata/Main.hs	2007-05-24 17:13:18.000000000 +0300
+++ new-fenserve/fendata/Main.hs	2007-05-24 17:13:18.000000000 +0300
@@ -150,7 +150,8 @@
                                     rs <- forM xs $ \x ->
                                         runExp (Map.insert v x env) body
                                     return $ concat rs
-runExp env (Var i) = return $ env Map.! i
+runExp env (Var i) = return $ fromMaybe ("0") $
+                         Map.lookup i env
 runExp env (Concat exps) = do rs <- mapM (\(Just e) -> runExp env e) exps
                               return $ concat rs
 runExp _   (Str s) = return s