Permalink
Switch branches/tags
Nothing to show
Find file Copy path
Fetching contributors…
Cannot retrieve contributors at this time
16 lines (12 sloc) 244 Bytes
; Testing rig library
(let ((-section "UNDEFINED-SECTION"))
(define S'
(lambda (s)
(define -section s)))
(define T'
(lambda (b)
(if b nil
(panic -section))))
(define F'
(lambda (b)
(T' (not b)))))