[plt-scheme] match single symbol

I was trying to match a single symbol but I didn't see a match pattern 
for it. This code seems to do what I want

(define (match-symbol sym)
  (match sym
    [x (=> f) (if (not (symbol? x)) (f) 'ok)]
    [else 'bad]))

(match-symbol 'a)
(match-symbol 23)
(match-symbol '(1 2 3))

-->
ok
bad
bad

Can something like this be added to scheme/match or is there an 
existing/simpler way to do it?