[add floating point primitives to C code generation
John Meacham <john@repetae.net>**20070531054358] hunk ./C/FromGrin2.hs 573
+floatOps = [
+    (Op.FDiv,"/"),
+    (Op.FAdd,"+"),
+    (Op.FSub,"-"),
+    (Op.FMul,"*"),
+    (Op.FEq,"=="),
+    (Op.FNEq,"!="),
+    (Op.FGt,">"),
+    (Op.FLt,"<"),
+    (Op.FGte,">="),
+    (Op.FLte,"<=")
+    ]
+
hunk ./C/FromGrin2.hs 598
+    | Just t <- lookup n floatOps = return $ operator t a b
hunk ./C/FromGrin2.hs 605
+primUnOp Op.FNeg ta r a = do return $ uoperator "-" a