31 lines
710 B
Scheme
31 lines
710 B
Scheme
|
;;;; type-errors-numbers.scheme.scm -*- Scheme -*-
|
||
|
|
|
||
|
|
(module type-errors-numbers.scheme
|
||
|
|
|
||
|
|
(;export
|
||
|
|
error-real
|
||
|
|
error-complex
|
||
|
|
error-rational
|
||
|
|
error-exact
|
||
|
|
error-inexact)
|
||
|
|
|
||
|
|
(import scheme)
|
||
|
|
(import (chicken base))
|
||
|
|
(import (chicken module))
|
||
|
|
(import (chicken type))
|
||
|
|
(import type-errors-basic)
|
||
|
|
|
||
|
|
(: error-real (* * #!optional * -> noreturn))
|
||
|
|
(: error-complex (* * #!optional * -> noreturn))
|
||
|
|
(: error-rational (* * #!optional * -> noreturn))
|
||
|
|
(: error-exact (* * #!optional * -> noreturn))
|
||
|
|
(: error-inexact (* * #!optional * -> noreturn))
|
||
|
|
|
||
|
|
(define-error-type real)
|
||
|
|
(define-error-type complex)
|
||
|
|
(define-error-type rational)
|
||
|
|
(define-error-type exact)
|
||
|
|
(define-error-type inexact)
|
||
|
|
|
||
|
|
) ;module type-errors-numbers.scheme
|