quote-with-pattern-variable.rkt

#lang racket/base

(require (for-syntax racket/base
                     racket/syntax
                     syntax/parse))

(define-syntax (define-constant stx)
  (syntax-parse stx
    [(_ name:id
        (~optional (~and #:evaluate evaluate-kw))
        value:expr)
     #:with value-maybe-eval (if (attribute evaluate-kw)
                                 #',value
                                 #'value)
     (syntax/loc stx
       (begin
         (begin-for-syntax
           (define/with-syntax name #'value-maybe-eval))
         (define name value)))]))

(define-syntax (quasiquote/constants stx)
  (syntax-parse stx
    [(_ datum:expr)
     (quasisyntax/loc stx
       (let-syntax ([datum-with-constants (λ (unused-stx) #'`datum)])
         datum-with-constants))]))

(define-constant CONST (+ 3 5))
(define-constant CONST2 #:evaluate
  (* 5 CONST))

(list CONST 234 CONST2)

(quasiquote/constants
 (list CONST 234 CONST2))