#lang racket/base (require (for-syntax racket/base)) ;; provide-stub-parameter (define-syntax (provide-stub-parameter stx) (syntax-case stx () [(_ name ...) (syntax/loc stx (begin (begin (define (name . args) 'this-is-a-stub) (provide name)) ...))])) (provide-stub-parameter exception-handler-key)