RosettaCodeData/Task/Quine/Racket/quine-2.rkt
2019-09-12 10:33:56 -07:00

4 lines
161 B
Racket

(module quine racket
(pretty-write
((λ (x) `(module quine racket (pretty-write (,x ',x))))
'(λ (x) `(module quine racket (pretty-write (,x ',x)))))))