gistfile1.clj

(defvar
  dispatch-table
  {:single-match 
   {'?is match-is '?or match-or '?and match-and '?not match-not}
   :segment-match 
   {'?* segment-match '?+ segment-match+ '?? segment-match? '?if match-if}}
  "Dispatch table")

(defn single-match-fn
  "Get the single-match function for x, if it is a symbol that has one."
  [x]
  (when (symbol? x) ((dispatch-table :single-match) x)))

(defn segment-match-fn
  "Get the segment-match function for x, if it is a symbol that has one."
  [x]
  (when (symbol? x) ((dispatch-table :segment-match) x)))