`suffix-out` в Racket

Question

Я могу использовать prefix-out, чтобы переименовать мои экспортированные идентификаторы, чтобы все они имели аналогичный префикс. Например:

#lang racket 
(provide (prefix-out mymod: (all-defined-out))) 
(define x 5) 
(define y 6) 

А теперь mymod:x и mymod:y должны быть привязаны к x и y внутри этого файла.

Есть ли аналогичный способ добавления суффикса ко всем идентификаторам, которые экспортирует модуль? Так что я могу сделать что-то вроде:

#lang racket 
(provide (suffix-out -from-mymod (all-defined-out))) 
(define x 5) 
(define y 6) 

И теперь любой модуль, который необходим этот бы x-from-mymod и y-from-mymod связаны с x и y в этом модуле.

Answer 1

Вы можете использовать filtered-out для этой цели:

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

(define-syntax suffix-out 
    (make-provide-transformer 
    (lambda (stx modes) 
    (syntax-parse stx 
     [(_ suffix:id provide-spec) 
     (expand-export 
     #'(filtered-out (lambda (name) 
          (string-append name (symbol->string 'suffix))) 
         provide-spec) 
     modes)]))))