Keywords as function arguments for control flow

[Heime]

How cam one use function arguments that use keywords for 
applying control operations with pcase or cond?

Consider this as example

(defun cuprat (seqr)

    (if (eq seqr 'global)
          (global-whitespace-mode 1)
      (whitespace-mode 1)) )

(cuprat 'global)