Changeset 10716

Timestamp:

06/16/06 18:24:23 (2 years ago)

Author:

lwall

Message:

Hacking around some build-breakers.

Location:

src/Pugs

Files:

• Monads.hs (modified) (1 diff)
• Parser.hs (modified) (1 diff)

src/Pugs/Monads.hs

@@ -271 +271 @@
         | otherwise = do
             subRec <- sequence
-                [ genSym "&?ROUTINE" (codeRef (orig sub))
+                [ genSym "&?ROUTINE" (codeRef (orig sub)) ]
             -- retRec    <- genSubs env "&return" retSub
             callerRec <- genSubs env "&?CALLER_CONTINUATION" (ccSub cc)

src/Pugs/Parser.hs

@@ -632 +632 @@
     optional (string "v" <|> string "Perl-")
     version <- many1 (choice [ digit, char '.' ])
+    optional ruleAuthorPart
+    {-
     optional $ do
         variant <- ruleAuthorPart
-        {-
         when (map toLower variant /= "pugs") $ do
             pos <- getPosition
             error $ "Perl implementation " ++ tail variant ++ " required--this is only Pugs v" ++ versnum ++ ", stopped at " ++ (show pos)
-        -}
+    -}
     return version