32 lines
676 B
Scheme
32 lines
676 B
Scheme
|
;;;; type-errors-atoms.scm -*- Scheme -*-
|
||
|
|
;;;; Kon Lovett, Jul '18
|
||
|
|
|
||
|
|
(module type-errors-atoms
|
||
|
|
|
||
|
|
(;export
|
||
|
|
error-symbol
|
||
|
|
error-keyword
|
||
|
|
error-char
|
||
|
|
error-boolean)
|
||
|
|
|
||
|
|
(import scheme)
|
||
|
|
(import (chicken base))
|
||
|
|
(import (chicken module))
|
||
|
|
(import (chicken type))
|
||
|
|
(import type-errors-basic)
|
||
|
|
|
||
|
|
(import type-errors-numbers)
|
||
|
|
(reexport type-errors-numbers)
|
||
|
|
|
||
|
|
(: error-symbol (* * #!optional * -> noreturn))
|
||
|
|
(: error-keyword (* * #!optional * -> noreturn))
|
||
|
|
(: error-char (* * #!optional * -> noreturn))
|
||
|
|
(: error-boolean (* * #!optional * -> noreturn))
|
||
|
|
|
||
|
|
(define-error-type symbol)
|
||
|
|
(define-error-type keyword)
|
||
|
|
(define-error-type char)
|
||
|
|
(define-error-type boolean)
|
||
|
|
|
||
|
|
) ;module type-errors-atoms
|