Changeset 2411

Timestamp:

04/27/05 21:58:01 (4 years ago)

Author:

autrijus

svk:copy_cache_prev:

3914

Message:

* It's not PIR, it's IMC

Location:

src/Pugs

Files:

• Compile.hs (modified) (2 diffs)
• Compile/Parrot.hs (modified) (1 diff)

src/Pugs/Compile.hs

@@ -14 +14 @@
 import Pugs.Internals
 import Pugs.Compile.Pugs (genPugs)
-import Pugs.Compile.Parrot (genPIR)
+import Pugs.Compile.Parrot (genIMC)
 import Pugs.Compile.Haskell (genGHC)
 
@@ -20 +20 @@
 compile "Haskell" env = fmap vCast $ runEval env genGHC
 compile "Pugs"    env = fmap vCast $ runEval env genPugs
-compile "Parrot"  env = fmap vCast $ runEval env genPIR
+compile "Parrot"  env = fmap vCast $ runEval env genIMC
 compile s _ = fail $ "Cannot compile to " ++ s
 

src/Pugs/Compile/Parrot.hs

@@ -19 +19 @@
     compile x = fail ("Unrecognized construct: " ++ show x)
 
-genPIR :: Eval Val
-genPIR = do
+genIMC :: Eval Val
+genIMC = do
     Env{ envBody = exp, envGlobal = globRef } <- ask