scsh-0.5/alt/loophole.scm

10 lines
246 B
Scheme
Raw Normal View History

1995-10-13 23:34:21 -04:00
; 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))))