[have program check for setting of non unique name.
John Meacham <john@repetae.net>**20060816111532] hunk ./E/Program.hs 12
+import GenUtil
hunk ./E/Program.hs 15
+import Options
hunk ./E/Program.hs 55
+programSetDs ds prog | flint && hasRepeatUnder (tvrIdent . fst) ds = error $ "programSetDs: program has redundant definitions: " ++ show (map (tvrShowName . fst) ds)
+programSetDs ds prog | flint && any even (map (tvrIdent . fst) ds) = error $ "programSetDs: trying to set non unique top sevel name: " ++ show (map (tvrShowName . fst) ds)