在 Racket 的嵌套宏中取消引用

Question

上下文

语言是#lang web-server/insta and this code will be generated inside a quasiquoted argument passed to response/xexpr

召唤

-> (define home 'home-page)
-> (make-navigation home "home-page")

当前输出

注意 ((href , (embed/url ...

前的 ` 反引号

'(p ((id "home-page")) (a `((href ,(embed/url home-page))) "home-page"))

期望的输出

请注意，` 不见了。

'(p ((id "home-page")) (a ((href ,(embed/url home-page))) "home-page"))

当前代码

(define (make-navigation uri label)

  (define (make-id uri)
    `((id ,(symbol->string uri))))

  (define-syntax-rule (embed uri)
    ``((href ,(embed/url ,uri))))

  `(p ,(make-id uri)
      (a ,(embed uri)
     ,label)))

问题所在

问题可能出在 embed。

Answer 1

#lang racket
(define (make-navigation uri label)

  (define (make-id uri)
    `((id ,(symbol->string uri))))

  (define-syntax-rule (embed uri)
    '((href ,(embed/url uri))))

  `(p ,(make-id uri)
      (a ,(embed uri)
     ,label)))

(define home 'home-page)
(make-navigation home "home-page")

输出：

'(p ((id "home-page")) (a ((href ,(embed/url uri))) "home-page"))

更新

(define (make-navigation uri label)

  (define (make-id uri)
    `((id ,(symbol->string uri))))

  (define-syntax-rule (embed uri)
    `((href ,(list 'unquote (list 'embed/url uri)))))

  `(p ,(make-id uri)
      (a ,(embed uri)
     ,label)))

(define home 'home-page)
(make-navigation home "home-page")

输出：

'(p ((id "home-page")) (a ((href ,(embed/url home-page))) "home-page"))