(define-syntax clock
   (syntax-id-rules (set!)
      ((set! clock e) (set-time! e))
      ((clock a ...) (error "clock is not a function"))
      (clock (get-time))))

Example 6: Identifier macros.