8 lines
205 B
Scheme
8 lines
205 B
Scheme
(module advanced-contracts mzscheme
|
|
(require "contracts-helpers.ss")
|
|
(require mzlib/list)
|
|
|
|
(provide void-contract)
|
|
|
|
(define void-contract (lambda (stx) (build-flat-contract void? 'void stx))))
|