diff --git a/basis/ui/backend/cocoa/views/views.factor b/basis/ui/backend/cocoa/views/views.factor index 34ebb56ba3..cff6af897c 100644 --- a/basis/ui/backend/cocoa/views/views.factor +++ b/basis/ui/backend/cocoa/views/views.factor @@ -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 diff --git a/extra/bittorrent/bittorrent.factor b/extra/bittorrent/bittorrent.factor index c831372b39..443e52e378 100644 --- a/extra/bittorrent/bittorrent.factor +++ b/extra/bittorrent/bittorrent.factor @@ -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 ]