#lang s-exp syntax/module-reader racket/base #:read my-read #:read-syntax my-read-syntax #:whole-body-readers? #t (define (my-read in) (syntax->datum (my-read-syntax #f in))) (define (my-read-syntax src in) #'((printf "Moby is obsolete, and has been replaced with the Whalesong project.\n\nSee:\n\n http://hashcollision.org/whalesong\n\nfor installation and examples.\n")))