(define-syntax-rule (c:white4) (vec4 1.0 1.0 1.0 1.0))

(define-pipeline light-source-shader
  ...
  ((#:fragment output: ((frag-color #:vec4)))
   (define (main) #:void
     (set! frag-color ,(c:white4)))))