[svn:parrot] r35647 - trunk/languages/pipp/src/pct

Author: bernhard
Date: Fri Jan 16 13:12:34 2009
New Revision: 35647

Modified:
   trunk/languages/pipp/src/pct/actions.pm

Log:
[Pipp] get rid of special case in the 'constant' action

Modified: trunk/languages/pipp/src/pct/actions.pm
==============================================================================
--- trunk/languages/pipp/src/pct/actions.pm	(original)
+++ trunk/languages/pipp/src/pct/actions.pm	Fri Jan 16 13:12:34 2009
@@ -262,24 +262,11 @@
 
 method constant($/) {
     our $?NS;
-    if $?NS eq '' {
-        make
-            PAST::Op.new(
-                :name('constant'),
-                PAST::Val.new(
-                    :returns('PhpString'),
-                    :value( ~$<CONSTANT_NAME> ),
-                )
-            );
-    }
-    else {
-        make
-            PAST::Var.new(
-                :name(~$<CONSTANT_NAME>),
-                :scope('package'),
-                :namespace($?NS)
-            );
-    }
+    make PAST::Var.new(
+        :name(~$<CONSTANT_NAME>),
+        :scope('package'),
+        :namespace($?NS)
+    );
 }
 
 # TODO: merge with rule 'constant'