Changeset 16329 for src/Pugs/AST.hs

Timestamp:

05/17/07 23:11:31 (18 months ago)

Author:

audreyt

Message:

* syntax checks now!

Files:

• src/Pugs/AST.hs (modified) (2 diffs)

src/Pugs/AST.hs

@@ -231 +231 @@
     Ann Parens _    -> False
     Ann _ exp       -> isScalarLValue exp
-    Pad _ _ exp     -> isScalarLValue exp
     Sym _ _ _ _ exp -> isScalarLValue exp
     Var var | SScalar <- v_sigil var -> True
@@ -301 +300 @@
 mergeStmts Noop y@(Stmts _ _) = y
 mergeStmts (Sym scope name flag init x) y = Sym scope name flag init (mergeStmts x y)
-mergeStmts (Pad scope lex x) y = Pad scope lex (mergeStmts x y)
 mergeStmts (Syn "package" [kind, pkg@(Val (VStr _))]) y =
     Syn "namespace" [kind, pkg, y]