Changeset 14138 for src/Pugs/AST.hs

Timestamp:

10/09/06 17:27:03 (2 years ago)

Author:

audreyt

Message:

* Pugs.AST: Bring (listVal :: Val -> [Val]) helper function

from newVal into oldVal land.

Files:

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

src/Pugs/AST.hs

@@ -18 +18 @@
     mergeStmts, isEmptyParams,
     newPackage, newType, newMetaType, typeMacro, isScalarLValue,
-    filterPrim, filterUserDefinedPad, typeOfParam,
+    filterPrim, filterUserDefinedPad, typeOfParam, listVal,
 
     module Pugs.AST.Internals,
@@ -359 +359 @@
     s       -> typeOfSigil s
 
-
+listVal :: Val -> [Val]
+listVal (VList xs)  = xs
+listVal x           = [x]
+