[print supercombinators properly when there is only one
John Meacham <john@repetae.net>**20051020035028] hunk ./Main.hs 353
-    let ELetRec ds _ = lc in do
+    let ds = scCombinators $ eToSC dataTable lc in do
hunk ./Main.hs 355
-        mapM_ (\ (t,e) -> let (_,ts) = fromLam e in putStrLn $  (showTVr t) ++ " \\" ++ concat [ "(" ++ show  (tvrInfo t) ++ ")" | t <- ts, sortStarLike (getType t) ] ) ds
+        mapM_ (\ (t,ts,e) -> putStrLn $  (showTVr t) ++ " \\" ++ concat [ "(" ++ show  (tvrInfo t) ++ ")" | t <- ts, sortStarLike (getType t) ]) ds