Changeset 6195

Timestamp:

08/11/05 17:41:59 (3 years ago)

Author:

iblech

Message:

Pugs.Compile: -CPIL prints multi sub decls now. (It's a 2-line patch,
(Haskell's conciseness++) :))

Files:

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

src/Pugs/Compile.hs

@@ -150 +150 @@
         where
         entries = sortBy padSort $ padToList pad
+        canCompile (name@('&':_), xs) | length xs > 1 = do
+            liftM concat $ mapM (\x -> canCompile (name, [x])) xs
         canCompile (name@('&':_), [(_, sym)]) = do
             ref <- liftSTM $ readTVar sym