Switch HLL::Actions to use find_codepoint opcode, bump PARROT_REVISION.

perl6 · May 13, 2010 · c5482a9 · c5482a9
1 parent 379f1b2
commit c5482a9
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git a/build/PARROT_REVISION b/build/PARROT_REVISION
@@ -1 +1 @@
-46106
+46564
diff --git a/src/HLL/Actions.pm b/src/HLL/Actions.pm
@@ -183,7 +183,7 @@ method quote_escape:sym<misc>($/) {
 method charname($/) {
     my $codepoint := $<integer>
                      ?? $<integer>.ast
-                     !!  Q:PIR { %r = new ['CodeString'] }.charname_to_ord( ~$/ );
+                     !! pir::find_codepoint__Is( ~$/ );
     $/.CURSOR.panic("Unrecognized character name $/") if $codepoint < 0;
     make pir::chr($codepoint);
 }