Changeset 17562 for src/Pugs/Eval.hs

Timestamp:

09/01/07 12:22:11 (15 months ago)

Author:

masak

Message:

[src/Pugs/Eval.hs]
* forbade a few more namespaces

Files:

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

src/Pugs/Eval.hs

@@ -859 +859 @@
     val <- evalExp exp
     str <- fromVal val
-    when (str `elem` words "MY OUR OUTER CALLER") $ do
-        fail $ "Cannot use " ++ str ++ " as a namespace"
+    let forbiddenNamespaces = ["CALLER", "COMPILING",
+                               "CONTEXT", "GLOBAL",
+                               "MY", "OUR", "OUTER",
+                               "PROCESS", "SUPER"]
+        in when (str `elem` forbiddenNamespaces) $ do
+           fail $ "Cannot use " ++ str ++ " as a namespace"
     enterPackage (cast str) $ evalExp body