From @finanalyst

I have the following in a file test.pl

macro doit ($word) {
  return quasi <say <<<$word>>> <<<$word>>> ;>
};

doit('one');
doit('two');
doit('three');

It should - I think - be outputting​:
one one
two two
three three

Instead I get​:
$ perl6 ./test.pl
Statement not terminated properly at line 1, near "{\n return"

current instr.​: 'parrot;PGE;Util;die' pc 129
(runtime/parrot/library/PGE/Util.pir​:83)
called from Sub 'parrot;Perl6;Grammar;eat_terminator' pc 28962
(src/gen_grammar.pir​:3368)
called from Sub 'parrot;Perl6;Grammar;statementlist' pc 27610
(src/gen_grammar.pir​:2835)
called from Sub 'parrot;Perl6;Grammar;statement_block' pc 25043
(src/gen_grammar.pir​:1841)
called from Sub 'parrot;Perl6;Grammar;TOP' pc 20899
(src/gen_grammar.pir​:210)
called from Sub 'parrot;PCT;HLLCompiler;parse' pc 634
(src/PCT/HLLCompiler.pir​:388)
called from Sub 'parrot;PCT;HLLCompiler;compile' pc 428
(src/PCT/HLLCompiler.pir​:301)
called from Sub 'parrot;PCT;HLLCompiler;eval' pc 862
(src/PCT/HLLCompiler.pir​:500)
called from Sub 'parrot;PCT;HLLCompiler;evalfiles' pc 1217
(src/PCT/HLLCompiler.pir​:669)
called from Sub 'parrot;PCT;HLLCompiler;command_line' pc 1398
(src/PCT/HLLCompiler.pir​:759)
called from Sub 'parrot;Perl6;Compiler;main' pc 19195 (perl6.pir​:162)

From @TimToady

On Thu, Jan 08, 2009 at 06​:11​:22AM -0800, Richard Hainsworth wrote​:
: # New Ticket Created by Richard Hainsworth
: # Please include the string​: [perl #​62070]
: # in the subject line of all future correspondence about this issue.
: # <URL​: http://rt.perl.org/rt3/Ticket/Display.html?id=62070 >
:
:
: I have the following in a file test.pl
:
: macro doit ($word) {
: return quasi <say <<<$word>>> <<<$word>>> ;>
: };

Note there's a syntax error here​: you can't feed two terms in a row
to "say". There needs to be a comma after the first quasi-unquote.
From S06​:

  Hence, while the quasiquote itself is being parsed, the syntactic
  interpolation of a unquoted expression into the quasiquote always
  results in the expectation of an operator following the variable.

On the other hand, I doubt rakudo handles macros yet in any case.

Larry

The RT System itself - Status changed from 'new' to 'open'

@pmichaud - Status changed from 'open' to 'stalled'

From @finanalyst

I have the following in a file test.pl

macro doit ($word) {
  return quasi <say <<<$word>>> <<<$word>>> ;>
};

doit('one');
doit('two');
doit('three');

It should - I think - be outputting​:
one one
two two
three three

Instead I get​:
$ perl6 ./test.pl
Statement not terminated properly at line 1, near "{\n return"

current instr.​: 'parrot;PGE;Util;die' pc 129
(runtime/parrot/library/PGE/Util.pir​:83)
called from Sub 'parrot;Perl6;Grammar;eat_terminator' pc 28962
(src/gen_grammar.pir​:3368)
called from Sub 'parrot;Perl6;Grammar;statementlist' pc 27610
(src/gen_grammar.pir​:2835)
called from Sub 'parrot;Perl6;Grammar;statement_block' pc 25043
(src/gen_grammar.pir​:1841)
called from Sub 'parrot;Perl6;Grammar;TOP' pc 20899
(src/gen_grammar.pir​:210)
called from Sub 'parrot;PCT;HLLCompiler;parse' pc 634
(src/PCT/HLLCompiler.pir​:388)
called from Sub 'parrot;PCT;HLLCompiler;compile' pc 428
(src/PCT/HLLCompiler.pir​:301)
called from Sub 'parrot;PCT;HLLCompiler;eval' pc 862
(src/PCT/HLLCompiler.pir​:500)
called from Sub 'parrot;PCT;HLLCompiler;evalfiles' pc 1217
(src/PCT/HLLCompiler.pir​:669)
called from Sub 'parrot;PCT;HLLCompiler;command_line' pc 1398
(src/PCT/HLLCompiler.pir​:759)
called from Sub 'parrot;Perl6;Compiler;main' pc 19195 (perl6.pir​:162)

@pmichaud - Status changed from 'new' to 'stalled'

From @pmichaud

On Sun, Jan 11, 2009 at 08​:56​:06PM -0800, Richard Hainsworth wrote​:

I have the following in a file test.pl

macro doit ($word) {
return quasi <say <<<$word>>> <<<$word>>> ;>
};

Macros aren't implemented in Rakudo yet, aren't likely to be implemented
until after we re-do parsing.

Stalling ticket for now.

Pm

The RT System itself - Status changed from 'stalled' to 'open'

@pmichaud - Status changed from 'open' to 'stalled'

From @coke

On Thu Jan 08 06​:11​:21 2009, richardh wrote​:

I have the following in a file test.pl

macro doit ($word) {
return quasi <say <<<$word>>> <<<$word>>> ;>
};

doit('one');
doit('two');
doit('three');

It should - I think - be outputting​:
one one
two two
three three

Instead I get​:
$ perl6 ./test.pl
Statement not terminated properly at line 1, near "{\n return"

current instr.​: 'parrot;PGE;Util;die' pc 129
(runtime/parrot/library/PGE/Util.pir​:83)
called from Sub 'parrot;Perl6;Grammar;eat_terminator' pc 28962
(src/gen_grammar.pir​:3368)
called from Sub 'parrot;Perl6;Grammar;statementlist' pc 27610
(src/gen_grammar.pir​:2835)
called from Sub 'parrot;Perl6;Grammar;statement_block' pc 25043
(src/gen_grammar.pir​:1841)
called from Sub 'parrot;Perl6;Grammar;TOP' pc 20899
(src/gen_grammar.pir​:210)
called from Sub 'parrot;PCT;HLLCompiler;parse' pc 634
(src/PCT/HLLCompiler.pir​:388)
called from Sub 'parrot;PCT;HLLCompiler;compile' pc 428
(src/PCT/HLLCompiler.pir​:301)
called from Sub 'parrot;PCT;HLLCompiler;eval' pc 862
(src/PCT/HLLCompiler.pir​:500)
called from Sub 'parrot;PCT;HLLCompiler;evalfiles' pc 1217
(src/PCT/HLLCompiler.pir​:669)
called from Sub 'parrot;PCT;HLLCompiler;command_line' pc 1398
(src/PCT/HLLCompiler.pir​:759)
called from Sub 'parrot;Perl6;Compiler;main' pc 19195 (perl6.pir​:162)

Here's a version updated to current macro syntax​:

21​:05 < [Coke]> r​: macro doit ($word) { return quasi { say {{{$word}}},
  {{{$word}}} ;} }; doit('one'); doit('two'); doit('three');
21​:05 <+p6eval> rakudo fc349a​: OUTPUT«oneone␤twotwo␤threethree␤»

Basic macros are pretty well tested. Closing ticket.

--
Will "Coke" Coleda

The RT System itself - Status changed from 'stalled' to 'open'

@coke - Status changed from 'open' to 'resolved'