(define the-list
  `(something ,(func) other thing))

;; Local Variables:
;; eval: (add-to-list 'scheme-font-lock-keywords-2 '(",(\\(\\sw+\\)" (1 font-lock-function-name-face)))
;; End: