Partially (non-semantically) handle labels in PASTing

parrot · Feb 26, 2011 · fd3ddc8 · fd3ddc8
1 parent a4dbc5b
commit fd3ddc8
Showing 1 changed file with 8 additions and 1 deletion.
diff --git a/compilers/opsc/src/Ops/Compiler/Actions.pm b/compilers/opsc/src/Ops/Compiler/Actions.pm
@@ -380,7 +380,14 @@ method statement_list ($/) {
 
 method labeled_statement ($/) {
     # FIXME!!!
-    make $<statement>.ast;
+    my $past := $<statement>
+                ?? $<statement>.ast
+                !! PAST::Op.new();
+
+    # FIXME!!! We need some semantics here.
+    $past<label> := ~$<label> if $<label>;
+
+    make $past;
 }
 
 method statement ($/) {