Changeset 21673 for src/Pugs/Meta/Perl5.hs

Timestamp:

08/01/08 13:56:05 (5 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/Meta/Perl5.hs (modified) (2 diffs)

src/Pugs/Meta/Perl5.hs

@@ -8 +8 @@
 import Data.Typeable (Typeable)
 import qualified Data.Map as Map
+import qualified StringTable.AtomMap as AtomMap
 import Pugs.AST.Internals (envContext, anyToVal, anyFromVal)
 import Pugs.Types
@@ -41 +42 @@
         subSV   <- liftIO . bufToSV . cast $ meth
         posSVs  <- mapM coerceVal (fromP $ f_positionals feed)
-        namSVs  <- fmap concat . forM (Map.toList (f_nameds feed)) $ \(key, vals) -> do
+        namSVs  <- fmap concat . forM (AtomMap.toList (f_nameds feed)) $ \(key, vals) -> do
             keySV   <- liftIO (bufToSV $ cast key)
             fmap concat . forM (fromP vals) $ \v -> do