Changeset 12800 for src/Pugs/Eval

Timestamp:

08/28/06 16:05:16 (2 years ago)

Author:

audreyt

Message:

* Put IArray into the IO monad, not the STM monad;

a STM-friendly array will need an explicitly-defined
data structure, most likely.

Files:

• src/Pugs/Eval/Var.hs (modified) (1 diff)

src/Pugs/Eval/Var.hs

@@ -383 +383 @@
 
     -- possiblyBuildMetaopVCode :: (_args :: [Exp]) => Var -> Eval (Maybe VCode)
-    possiblyBuildMetaopVCode var@MkVar{ v_name = name, v_meta = meta }
-        | MPost     <- meta = buildPrefixHyper var'         -- +<<
-        | MPre      <- meta = buildPostfixHyper var'        -- >>+
-        | MHyper    <- meta = buildInfixHyper var'          -- >>+<<
-        | MFold     <- meta = buildReduce varInfix False    -- [+]
-        | MScan     <- meta = buildReduce varInfix True     -- [\+]
-        | otherwise         = return Nothing
+    possiblyBuildMetaopVCode var@MkVar{ v_meta = meta } = case meta of
+        MPost   -> buildPrefixHyper var'         -- +<<
+        MPre    -> buildPostfixHyper var'        -- >>+
+        MHyper  -> buildInfixHyper var'          -- >>+<<
+        MFold   -> buildReduce varInfix False    -- [+]
+        MScan   -> buildReduce varInfix True     -- [\+]
+        _       -> return Nothing
         where
         var' = var{ v_meta = MNil }