[make bap_ functions use proper argument types, honor '-k' flag
John Meacham <john@repetae.net>**20060405021830] hunk ./Grin/FromE.hs 101
-    when (not $ null errs) $ fail "There were type errors!"
+    unless (null errs || optKeepGoing options) $ fail "There were type errors!"
hunk ./Grin/FromE.hs 444
-            args = [Var v (TyPtr TyNode) | v <- [v1..] | _ <- (undefined:as)]
+            args = [Var v ty | v <- [v1..] | ty <- (TyPtr TyNode:map getType as)]