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

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)

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