check-errors/type-checks-numbers.cplxnum.scm

20 lines
401 B
Scheme
Raw Normal View History

2024-09-25 15:33:04 +00:00
;;;; type-checks-numbers.cplxnum.scm -*- Scheme -*-
(module (type-checks-numbers cplxnum)
(;export
check-cplxnum)
(import scheme)
(import (chicken base))
(import (chicken module))
(import (chicken type))
(import type-checks-basic)
(import (type-errors-numbers cplxnum))
(: check-cplxnum (* cplxnum #!optional * -> cplxnum))
(define-check-type cplxnum)
) ;module (type-checks-numbers cplxnum)