[bpt/guile.git] / testsuite / t-quasiquote.scm

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