Changeset 15777 for src/Pugs/Prim.hs

Timestamp:

03/22/07 20:58:32 (20 months ago)

Author:

audreyt

Message:

* Gain another ~10% on startup speed (Prelude+Test) by simply

changing all "atomically . newTVar" to "newTVarIO" when
atomicity is irrelevant.

Files:

• src/Pugs/Prim.hs (modified) (2 diffs)

src/Pugs/Prim.hs

@@ -324 +324 @@
 op1 "lazy" = \v -> do
     sub     <- fromVal v
-    memo    <- stm $ newTVar Nothing
+    memo    <- io $ newTVarIO Nothing
     let exp = App (Val $ VCode sub) Nothing []
         thunk = do
@@ -1741 +1741 @@
 op1Pretty :: PrettyPrinter -> Val -> Eval Val
 op1Pretty printer v = do
-    recur   <- stm (newTVar False)
+    recur   <- io (newTVarIO False)
     let ?seen    = IntSet.empty
         ?recur   = recur