Changeset 5890 for src/Pugs/CodeGen

Timestamp:

07/29/05 17:19:17 (3 years ago)

Author:

bsmith

svk:copy_cache_prev:

7758

Message:

Added export lists to lots of haskell files.

Files:

• src/Pugs/CodeGen/PIR.hs (modified) (2 diffs)

src/Pugs/CodeGen/PIR.hs

@@ -18 +18 @@
 import Pugs.AST
 import Pugs.AST.Internals
+import Pugs.Types
 import Pugs.Eval.Var
-import Emit.Common
 import Emit.PIR
 import Pugs.Pretty
@@ -29 +29 @@
 type CodeGen a = WriterT [Stmt] (ReaderT TEnv IO) a
 type CodeGenMonad = WriterT [Stmt] (ReaderT TEnv IO)
+
+ratToNum :: VRat -> VNum
+ratToNum x = (fromIntegral $ numerator x) / (fromIntegral $ denominator x)
 
 {-| Currently only 'PIL' → 'PIR' -}