Allow $¢ inside :lang( )

sorear · Oct 24, 2010 · 38e1e66 · 38e1e66
1 parent 3268035
commit 38e1e66
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 3 deletions.
diff --git a/src/Niecza/Actions.pm b/src/Niecza/Actions.pm
@@ -858,7 +858,7 @@ sub mod_internal__S_p6adv { my ($cl, $M) = @_;
     $v = $v->[0]{_ast};
 
     if ($k eq 'lang') {
-        $M->{_ast} = RxOp::SetLang->new(expr => $v);
+        $M->{_ast} = RxOp::SetLang->new(expr => $cl->transparent($M, $v, sig => Sig->simple('$¢')));
     } elsif ($k eq 'dba') {
         UNWRAP: {
             $v->isa('Op::Paren') && ($v = $v->inside, redo UNWRAP);

diff --git a/src/RxOp.pm b/src/RxOp.pm
@@ -708,12 +708,12 @@ use CgOp;
     sub code {
         my ($self, $body) = @_;
         CgOp::rxsetclass(CgOp::obj_llhow(CgOp::fetch(
-                    $self->expr->cgop($body))));
+                    CgOp::subcall(CgOp::fetch($self->expr->cgop($body)), CgOp::newscalar(CgOp::rxcall('MakeCursor'))))));
     }
 
     sub lad {
         my ($self) = @_;
-        [ 'Null' ];
+        [ 'Imp' ];
     }
 
     __PACKAGE__->meta->make_immutable;