scsh-0.6/scheme/alt/loophole.scm

10 lines
247 B
Scheme
Raw Normal View History

2003-05-01 06:21:33 -04:00
; Copyright (c) 1993-1999 by 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))))