Expect \U without a +

AlexDaniel · AlexDaniel · commit 8f405b1b9f49 · 2018-06-02T00:20:30.000+03:00
Most likely an oops.
diff --git a/bin/Unicodable.p6 b/bin/Unicodable.p6
@@ -96,7 +96,7 @@ method from-numerics($query) {
     $query ~~ m:ignoremark/^
         :i \s*
         [
-            [ | [｢\U｣ |‘u’ (.)] <?{ $0[*-1].Str.uniname.match: /PLUS.*SIGN/ }>
+            [ | [｢\U｣ | ‘u’ (.) <?{ $0[*-1].Str.uniname.match: /PLUS.*SIGN/ }> ]
               | [ <:Nd> & <:Numeric_Value(0)> ] ‘x’ # TODO is it fixed now? … What exactly?
             ]
             $<digit>=<:HexDigit>+

Original file line number	Diff line number	Diff line change
`@@ -96,7 +96,7 @@ method from-numerics($query) {`
`96`	`96`	`$query ~~ m:ignoremark/^`
`97`	`97`	`:i \s*`
`98`	`98`	`[`
`99`		`- [ \| [｢\U｣ \|‘u’ (.)] <?{ $0[-1].Str.uniname.match: /PLUS.SIGN/ }>`
	`99`	`+ [ \| [｢\U｣ \| ‘u’ (.) <?{ $0[-1].Str.uniname.match: /PLUS.SIGN/ }> ]`
`100`	`100`	`\| [ <:Nd> & <:Numeric_Value(0)> ] ‘x’ # TODO is it fixed now? … What exactly?`
`101`	`101`	`]`
`102`	`102`	`$<digit>=<:HexDigit>+`