add ｢...｣ quotes

TimToady · TimToady · commit 7b5e4fbbcc23 · 2012-08-13T11:09:04.000-07:00
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('"'))> }
 

Original file line number	Diff line number	Diff line change
`@@ -589,6 +589,7 @@ token quotepair {`
`589`	`589`	`$<k> = {$key} $<v> = {$value}`
`590`	`590`	`}`
`591`	`591`
	`592`	`+token quote:sym<｢｣> { :dba('perfect quotes') "｢" ~ "｣" <nibble($¢.cursor_fresh( %*LANG<Q> ).unbalanced("｣"))> }`
`592`	`593`	`token quote:sym<' '> { :dba('single quotes') "'" ~ "'" <nibble($¢.cursor_fresh( %*LANG<Q> ).tweak(:q).unbalanced("'"))> }`
`593`	`594`	`token quote:sym<" "> { :dba('double quotes') '"' ~ '"' <nibble($¢.cursor_fresh( %*LANG<Q> ).tweak(:qq).unbalanced('"'))> }`
`594`	`595`