scsh-0.5/alt/loophole.scm

10 lines
246 B
Scheme
Raw Permalink Normal View History

; Copyright (c) 1993, 1994 Richard Kelsey and Jonathan Rees. See file COPYING.
(define-syntax loophole
(syntax-rules ()
((loophole ?type ?form)
(begin (lambda () ?type) ;Elicit unbound-variable warnings, etc.
?form))))