racket - 構文規則 Racket を提供する

Question

ラケットで構文規則を提供するにはどうすればよいですか?

次のようなコードがあります。

(define-syntax SELECT 
  (syntax-rules (FROM WHERE star)
    [(SELECT colnames FROM relnames)
     ...]
    [(SELECT colnames FROM relnames WHERE . expression)
     ...]))

FROM WHERE とスターを提供するために提供ステートメントを使用するにはどうすればよいですか?

これが私がSELECTを提供する方法です：

(provide SELECT)