Как векторные шаблоны используются в синтаксических правилах?

Question

Я писал макросы Common Lisp, поэтому макросы R5R в Scheme для меня немного неестественны. Я думаю Я понял идею, за исключением того, что я не понимаю, как можно использовать векторные шаблоны в правилах синтаксиса:

(define-syntax mac
  (syntax-rules ()
    ((mac #(a b c d))
     (let ()
       (display a)
       (newline)
       (display d)
       (newline)))))

(expand '(mac #(1 2 3 4)))  ;; Chicken's expand-full extension shows macroexpansion

=> (let746 () (display747 1) (newline748) (display747 4) (newline748))

Я не понимаю, как бы я использовал макрос, который требует, чтобы его аргументы были записаны как вектор:

(mac #(1 2 3 4))
=>
1
4

Есть ли какая-то техника, которая использует эти шаблоны?

Спасибо!

Answer 1

Макрос может не требовать, чтобы его аргументы были записаны как вектор, но обеспечивает полезное поведение, когда они есть. Наиболее ярким примером, вероятно, будет квазицитатура:

;; a couple of test variables
(define foo 1)
(define bar 2)

;; vector literals in Scheme are implicitly quoted
#(foo bar) ; returns #(foo bar), i.e. a vector of two symbols

;; however quasiquote / unquote can reach inside them
`#(,foo ,bar) ; returns #(1 2)

В качестве другого примера см. этот пакет сопоставления с образцом , который позволяет сопоставлять по векторам и, таким образом, использует векторные рисунки в своих определениях макросов (включенных в связанную страницу вместе с метаданными пакета).