Changeset 21763 for src/Pugs/Parser.hs

Timestamp:

08/04/08 10:39:26 (4 months ago)

Author:

lwall

Message:

s/q:code/quasi/ plus various t/ buglets

Files:

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

src/Pugs/Parser.hs

@@ -984 +984 @@
             _ -> fail "no caller env to install pragma in"
 
-{-| Match a @q:code { ... }@ quotation -}
+{-| Match a @quasi { ... }@ quotation -}
 ruleCodeQuotation :: RuleParser Exp
 ruleCodeQuotation = rule "code quotation" $ do
     -- XXX - This is entirely kluge; it drops traits in the body too
-    symbol "q:code" >> optional (symbol "(:COMPILING)")
+    symbol "quasi" >> optional (symbol ":COMPILING")
     block <- ruleBlockBody
-    return (Syn "q:code" [bi_body block])
+    return (Syn "quasi" [bi_body block])
     
 -- | If we've executed code like @BEGIN { exit }@, we've to run all @\@*END@