Changeset 21673 for src/Pugs/Prim.hs

Timestamp:

08/01/08 13:56:05 (4 months ago)

Author:

audreyt

Message:

* Import Pugs 6.2.13.11 from Hackage into our source tree.
* Highlights:

• Much faster startup time
• Slightly faster compilation time (mostly due to refactored Pugs.AST.Internals)
• Portable-to-Win32 readline thanks to Haskeline

Files:

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

src/Pugs/Prim.hs

@@ -30 +30 @@
 import Pugs.Monads
 import Pugs.Pretty
-import Pugs.DeepSeq
 import Text.Printf
 import Pugs.External
@@ -677 +676 @@
 op1 "eager" = \v -> do
     vlist <- fromVal v
-    return $! VList $! deepSeq vlist vlist
+    return $! length (map valType vlist) `seq` VList vlist
 op1 "Pugs::Internals::emit_yaml" = \v -> do
     glob <- filterPrim =<< asks envGlobal