ui.backend.cocoa.views,bittorrent: Fix syntax for new parser

modern-harvey3
Doug Coleman 2020-01-26 10:07:37 -06:00
parent 82f9cea1c1
commit 00c85b6cdc
2 changed files with 4 additions and 4 deletions

View File

@ -367,7 +367,7 @@ PRIVATE>
gadget [
gadget preedit? not [
window event send: action utf8 alien>string validate-action
[ >c-bool ] [ drop self event super: validateUserInterfaceItem: ] if
[ >c-bool ] [ drop self event super: \validateUserInterfaceItem: ] if
] [ 0 ] if
] [ 0 ] if
] [ 0 ] if

View File

@ -12,9 +12,9 @@ IN: bittorrent
<<
CONSTANT: ALPHANUMERIC $[
[
CHAR: a CHAR: z [a,b] %
CHAR: A CHAR: Z [a,b] %
CHAR: 0 CHAR: 9 [a,b] %
char: a char: z [a,b] %
char: A char: Z [a,b] %
char: 0 char: 9 [a,b] %
".-_~" %
] { } make
]