Change the language the compiler is registered under to match both th…

…e HLL namespace and the filename.
rakudo · Dec 27, 2009 · 5e19f61 · 5e19f61
1 parent daa5600
commit 5e19f61
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 3 deletions.
diff --git a/src/Perl6/Compiler.pir b/src/Perl6/Compiler.pir
@@ -83,7 +83,7 @@ Perl6::Compiler - Perl6 compiler
     .local pmc p6meta, nqpproto
     p6meta = get_hll_global ['Mu'], '$!P6META'
     nqpproto = p6meta.'new_class'('Perl6::Compiler', 'parent'=>'HLL::Compiler')
-    nqpproto.'language'('Perl6')
+    nqpproto.'language'('perl6')
     $P0 = get_hll_global ['Perl6'], 'Grammar'
     nqpproto.'parsegrammar'($P0)
     $P0 = get_hll_global ['Perl6'], 'Actions'
@@ -114,7 +114,7 @@ Perl6::Compiler - Perl6 compiler
 
 .sub 'main' :main
     .param pmc args_str
-    $P0 = compreg 'Perl6'
+    $P0 = compreg 'perl6'
     $P1 = $P0.'command_line'(args_str, 'encoding'=>'utf8', 'transcode'=>'ascii iso-8859-1')
     '!fire_phasers'('END')
     exit 0

diff --git a/src/cheats/eval.pm b/src/cheats/eval.pm
@@ -4,7 +4,7 @@ our sub eval(Str $code) {
         interp = getinterp
         caller = interp['context';1]
         push_eh catch
-        $P0 = compreg 'Perl6'
+        $P0 = compreg 'perl6'
         code = find_lex '$code'
         result = $P0.'eval'(code, 'outer_ctx'=>caller)
         exception = '!FAIL'()