parse <<END with correct quote language

perl6 · Sep 2, 2012 · 36c6322 · 36c6322
1 parent b178d5b
commit 36c6322
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 3 deletions.
diff --git a/STD_P5.pm6 b/STD_P5.pm6
@@ -1339,10 +1339,10 @@ token p5quote:sym« << »   { '<<' ::
     | <?before "'"> <quibble($¢.cursor_fresh( %*LANG<Q> ).tweak(:q).cursor_herelang)>
     | <identifier>
     	<.queue_heredoc( $<identifier>.Str,
-			 $¢.cursor_fresh( %*LANG<Q> ).tweak(:qq).cursor_herelang )>
+			 $¢.cursor_fresh( %*LANG<Q> ).tweak(:qq) )>
     | \\ <identifier>
     	<.queue_heredoc( $<identifier>.Str,
-			 $¢.cursor_fresh( %*LANG<Q> ).tweak(:q).cursor_herelang )>
+			 $¢.cursor_fresh( %*LANG<Q> ).tweak(:q) )>
     ] || <.panic: "Couldn't parse heredoc construct">
 }
 

diff --git a/viv b/viv
@@ -2312,7 +2312,7 @@ TEXT
 		       grep { $::BINDINGS{$_} > 1 }
 		       sort keys %::BINDINGS)
 	    . ($::SYM ? '$C->{sym} = "' . ::rd($::SYM) . "\";\n" : '')
-	    . <<"END"
+	    . <<END
 \$self->_MATCHIFY$ratchet(\$S, "$p5name", ${\ $body->p5expr });
 END
 	    , 1) . "}\n";