Changeset 13801 for src/Pugs/Eval

Timestamp:

10/03/06 11:41:18 (2 years ago)

Author:

audreyt

Message:

* Move typeOfParam into Pugs.AST.

This is used in the previous commits to implement class-wide
attributes with accessors, namely "class C { my $.x }".

Files:

• src/Pugs/Eval/Var.hs (modified) (1 diff)

src/Pugs/Eval/Var.hs

@@ -426 +426 @@
         var' = var{ v_meta = MNil }
         varInfix = var{ v_meta = MNil, v_categ = C_infix }
-
-typeOfParam :: Param -> Type
-typeOfParam p = case v_sigil (paramName p) of
-    SScalar -> typeOfCxt (paramContext p)
-    s       -> typeOfSigil s
-
 
 metaVar :: Pkg -> Var