Commits

Anonymous committed 892341b

source-inline mkcalls

  • Participants
  • Parent commits 0f80dcc

Comments (0)

Files changed (1)

src/parser/actions.pm

 method TOP($/) {
   my $past := PAST::Block.new();
   for $<chardef> {
-=begin
-    $past.push(PAST::Var.new(
-      :name($_<character>),
-      :isdecl(1),
-      :scope('package'),
-      :viviself('Hash'),
-      :node($_))
-    ) 
-=cut 
-    $past.push(
-      mkcall( mkstr($_<character>), 'declare')
-    );
+    $past.push( mkcall( mkstr($_<character>), 'declare'));
   }
   for $<act> {
     $past.push( $( $_ ) );
   make $past;
 }
 method exits($/) {
-  my $res := mkcall( mkstr($<character>), 'exit');
-  make $res;
+  make mkcall( mkstr($<character>), 'exit');
 }
 
 method immediate($/) {
 
 method binary($/, $key) {
   my $res := PAST::Op.new(:pirop( $key ));
-  for $<value> {
-    $res.push( $( $_ ));
-  }
+  for $<value> { $res.push( $( $_ )) }
   make $res;
 }