# New Ticket Created by Tim Nelson
# Please include the string: [perl #68168]
# in the subject line of all future correspondence about this issue.
# <URL: http://rt.perl.org/rt3/Ticket/Display.html?id=68168 >
Rakudo version: HEAD of the ins2 branch
Parrot: parrot-1.4.0-6.fc10.i386
Code:
------------------------------------------------------------
#!/usr/bin/perl6
grammar testg {
rule TOP { {say "hi" } <tok> }
token tok { foo };
}
testg.parse("foo");
------------------------------------------------------------
Output:
------------------------------------------------------------
Statement not terminated properly at line 4, near "say \"hi\" }"
Null PMC access in get_pmc_keyed()
current instr.: 'perl6;Perl6;Compiler;eval' pc 291092
(src/gen_actions.pir:24120) (src/gen_setting.pm:3340)
called from Sub 'perl6;PCT;HLLCompiler;evalfiles' pc 1318
(src/PCT/HLLCompiler.pir:712)
called from Sub 'perl6;PCT;HLLCompiler;command_line' pc 1513
(src/PCT/HLLCompiler.pir:813)
called from Sub 'perl6;Perl6;Compiler;main' pc 291304
(src/gen_actions.pir:24209) (src/gen_setting.pm:3340)
------------------------------------------------------------
Note in the above that there are both a syntax error while using
closures in rules, and a Null PMC error. I'm not sure which needs fixing how,
but something does :).
HTH,
---------------------------------------------------------------------
| Name: Tim Nelson | Because the Creator is, |
| E-mail: wayl...@wayland.id.au | I am |
---------------------------------------------------------------------
----BEGIN GEEK CODE BLOCK----
Version 3.12
GCS d+++ s+: a- C++$ U+++$ P+++$ L+++ E- W+ N+ w--- V-
PE(+) Y+>++ PGP->+++ R(+) !tv b++ DI++++ D G+ e++>++++ h! y-
-----END GEEK CODE BLOCK-----
