add ｢...｣ quotes

perl6 · Aug 13, 2012 · 7b5e4fb · 7b5e4fb
1 parent d96f25c
commit 7b5e4fb
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/STD.pm6 b/STD.pm6
@@ -589,6 +589,7 @@ token quotepair {
     $<k> = {$key} $<v> = {$value}
 }
 
+token quote:sym<｢ ｣>   { :dba('perfect quotes') "｢" ~ "｣" <nibble($¢.cursor_fresh( %*LANG<Q> ).unbalanced("｣"))> }
 token quote:sym<' '>   { :dba('single quotes') "'" ~ "'" <nibble($¢.cursor_fresh( %*LANG<Q> ).tweak(:q).unbalanced("'"))> }
 token quote:sym<" ">   { :dba('double quotes') '"' ~ '"' <nibble($¢.cursor_fresh( %*LANG<Q> ).tweak(:qq).unbalanced('"'))> }