Changeset 13917 for src/Pugs/AST.hs

Timestamp:

10/05/06 14:31:18 (2 years ago)

Author:

audreyt

Message:

* Pugs.AST: Int(x=>1), Int(4) etc are all disallowed

for now (explicit coercion comes later). This makes
non-dotted-new-disallowed.t pass.

Files:

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

src/Pugs/AST.hs

@@ -216 +216 @@
 mergeStmts x y = Stmts x y
 
+isImplicitTopic :: String -> Bool
 isImplicitTopic "subst" = True
 isImplicitTopic "match" = True
@@ -282 +283 @@
     , subReturns    = typ
     , subLValue     = False
-    , subParams     = []
+    , subParams     = [defaultArrayParam, defaultHashParam{ paramName = cast "%" }]
     , subBindings   = []
     , subSlurpLimit = []
-    , subBody       = Prim . const . expToEvalVal $ exp
+    , subBody       = Prim $ \v -> do
+        list <- mapM fromVals v :: Eval [VList]
+        case concat list of
+            []  -> expToEvalVal $ exp
+            xs  -> retError ("Cannot coerce to " ++ name) xs
     , subCont       = Nothing
     , subPreBlocks = []