Changeset 3352 for src/Pugs/Compile/Parrot.hs

Timestamp:

05/17/05 20:00:18 (4 years ago)

Author:

jhorwitz

svk:copy_cache_prev:

4908

Message:

* clean up formatting
* note problems when declaring multiple namespaces in same pad

Files:

• src/Pugs/Compile/Parrot.hs (modified) (1 diff)

src/Pugs/Compile/Parrot.hs

@@ -45 +45 @@
     compile = return
 
-padSort ((a::[Char]), [(_, _)]) ((b::[Char]), [(_, _)]) | (head a == ':' && head b == '&') = LT
-                                                        | (head b == ':' && head a == '&') = GT
-                                                        | otherwise = GT
+padSort ((a::[Char]), [(_, _)]) ((b::[Char]), [(_, _)])
+    | (head a == ':' && head b == '&') = LT
+    | (head b == ':' && head a == '&') = GT
+    | otherwise = GT
 padSort _ _ = EQ
 
 instance Compile Pad where
+    {- XXX The padSort will misplace multiple namespaces in the same pad.
+           We *should* compile the namespaces & subs in order of declaration.
+    -}   
     compile pad = do
-        -- fmap vcat $ mapM compile (filter (\((p), [(_, _)]) -> head p == ':') $ padToList pad)
         fmap vcat $ mapM compile (sortBy padSort $ padToList pad)