Generate real PAST::Val nodes for literals.

ekiru · Jul 20, 2010 · 117541a · 117541a
1 parent 3a07019
commit 117541a
Showing 1 changed file with 6 additions and 2 deletions.
diff --git a/src/Squaak/Actions.pm b/src/Squaak/Actions.pm
@@ -298,8 +298,12 @@ method identifier($/) {
                          :node($/) );
 }
 
-method term:sym<integer_constant>($/) { make $<integer>.ast; }
-method term:sym<string_constant>($/) { make $<quote>.ast; }
+method term:sym<integer_constant>($/) {
+    make PAST::Val.new(:value($<integer>.ast), :returns<Integer>);
+}
+method term:sym<string_constant>($/) {
+    make PAST::Val.new(:value($<quote>.ast), :returns<String>);
+}
 
 method quote:sym<'>($/) { make $<quote_EXPR>.ast; }
 method quote:sym<">($/) { make $<quote_EXPR>.ast; }