diff --git a/stx-utils.rkt b/stx-utils.rkt index 70582f7..0ba5782 100644 --- a/stx-utils.rkt +++ b/stx-utils.rkt @@ -39,6 +39,8 @@ [() #'()] [a #'a]))) +;; Shorthand for adding new identifiers based on other formatted ones to +;; syntax patterns (define-simple-macro (with-derived-ids ([pat-id:id format base-id-stx] ...) stx-expr) (with-syntax ([pat-id (format-id base-id-stx