20 lines
401 B
Scheme
20 lines
401 B
Scheme
|
;;;; 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)
|