loophole.scm 276 B

123456789101112
  1. ; Part of Scheme 48 1.9. See file COPYING for notices and license.
  2. ; Authors: Richard Kelsey, Jonathan Rees
  3. (define-syntax loophole
  4. (syntax-rules ()
  5. ((loophole ?type ?form)
  6. (begin (lambda () ?type) ;Elicit unbound-variable warnings, etc.
  7. ?form))))