[Fencommits] fenserve: render better variable names

[Benja Fallenstein]

Wed Jun 20 02:34:38 EEST 2007  Benja Fallenstein <benja.fallenstein at gmail.com>
  * render better variable names
diff -rN -u old-fenserve/fendata/Rendering.hs new-fenserve/fendata/Rendering.hs
--- old-fenserve/fendata/Rendering.hs	2007-06-20 03:21:21.000000000 +0300
+++ new-fenserve/fendata/Rendering.hs	2007-06-20 03:21:21.000000000 +0300
@@ -57,7 +57,9 @@
 
 mintVar :: Type -> (Int -> RenderExp a) -> RenderExp a
 mintVar t f = do var <- get; put (var + 1)
-                 local (\e -> e {envVars=("v"++show var,t):envVars e}) (f var)
+                 local (\e -> e {envVars=(n var,t):envVars e}) (f var) where
+    n i = (if i<26 then "" else n (i `div` 26))
+       ++ [toEnum $ fromEnum 'a' + i `mod` 26]
                  
 focusPath :: [Int] -> GenericT
 focusPath []     = mkT Focus