`suffix-out` in 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)]))))