test-suite/vm/t-quasiquote.scm

   1 (list
   2   `()
   3   `foo
   4   `(foo)
   5   `(foo bar)
   6   `(1 2)
   7   (let ((x 1)) `,x)
   8   (let ((x 1)) `(,x))
   9   (let ((x 1)) ``(,x))
  10   (let ((head '(a b))
  11         (tail 'c))
  12     `(,@head . ,tail)))