Fix subset compilation.

rakudo · Jul 13, 2012 · 101c115 · 101c115
1 parent 266d7b6
commit 101c115
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/QPerl6/Actions.pm b/src/QPerl6/Actions.pm
@@ -2432,7 +2432,7 @@ class QPerl6::Actions is HLL::Actions {
         # If we have a refinement, make sure it's thunked if needed. If none,
         # just always true.
         my $refinement := make_where_block($<EXPR> ?? $<EXPR>[0].ast !!
-            QAST::Op.new( :op('p6bool'), 1 ));
+            QAST::Op.new( :op('p6bool'), QAST::IVal.new( :value(1) ) ));
 
         # Create the meta-object.
         my $longname := $<longname> ?? $*W.disect_longname($<longname>[0]) !! 0;