Changeset 10717

Timestamp:

06/16/06 18:25:47 (2 years ago)

Author:

audreyt

Message:

* Fix syntax error. Moral: _always_ test and commit

from sleep, instead of waiting until the morning to commit it
without testing.

Location:

src/Pugs

Files:

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

src/Pugs/Monads.hs

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

src/Pugs/Parser.hs

@@ -640 +640 @@
             error $ "Perl implementation " ++ tail variant ++ " required--this is only Pugs v" ++ versnum ++ ", stopped at " ++ (show pos)
     -}
+        return variant
     return version