summaryrefslogtreecommitdiffstats
path: root/tests/012/quine.tl
blob: f9faac899db13056c17bf6bce1094c89e34975c4 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
(load "../common")

(test
  ((lambda (lambda)
     ^(,lambda ',lambda))
   '(lambda (lambda) ^(,lambda ',lambda)))
  ((lambda (lambda)
     ^(,lambda ',lambda))
   '(lambda (lambda) ^(,lambda ',lambda))))

(test
  ((lambda (lambda)
     ^((lambda (lambda) ,lambda) ',lambda))
   '^((lambda (lambda) ,lambda) ',lambda))
  ((lambda (lambda)
     ^((lambda (lambda) ,lambda) ',lambda))
   '^((lambda (lambda) ,lambda) ',lambda)))