59 lines
1.5 KiB
Scheme
59 lines
1.5 KiB
Scheme
|
;;;; srfi-4-errors.scm -*- Scheme -*-
|
||
|
;;;; Kon Lovett, Jul '18
|
||
|
;;;; Kon Lovett, Dec '09
|
||
|
|
||
|
(module srfi-4-errors
|
||
|
|
||
|
(;export
|
||
|
error-s8vector
|
||
|
error-u8vector
|
||
|
error-s16vector
|
||
|
error-u16vector
|
||
|
error-s32vector
|
||
|
error-u32vector
|
||
|
error-s64vector
|
||
|
error-u64vector
|
||
|
error-f32vector
|
||
|
error-f64vector)
|
||
|
|
||
|
(import scheme)
|
||
|
(import (chicken base)) ; for `include'
|
||
|
(import (chicken type))
|
||
|
(import (srfi 4))
|
||
|
(import type-errors-basic)
|
||
|
|
||
|
(: error-s8vector (* * #!optional * -> noreturn))
|
||
|
(: error-u8vector (* * #!optional * -> noreturn))
|
||
|
(: error-s16vector (* * #!optional * -> noreturn))
|
||
|
(: error-u16vector (* * #!optional * -> noreturn))
|
||
|
(: error-s32vector (* * #!optional * -> noreturn))
|
||
|
(: error-u32vector (* * #!optional * -> noreturn))
|
||
|
(: error-s64vector (* * #!optional * -> noreturn))
|
||
|
(: error-u64vector (* * #!optional * -> noreturn))
|
||
|
(: error-f32vector (* * #!optional * -> noreturn))
|
||
|
(: error-f64vector (* * #!optional * -> noreturn))
|
||
|
|
||
|
(define-error-type s8vector)
|
||
|
(define-error-type u8vector)
|
||
|
(define-error-type s16vector)
|
||
|
(define-error-type u16vector)
|
||
|
(define-error-type s32vector)
|
||
|
(define-error-type u32vector)
|
||
|
(define-error-type s64vector)
|
||
|
(define-error-type u64vector)
|
||
|
(define-error-type f32vector)
|
||
|
(define-error-type f64vector)
|
||
|
|
||
|
(define-error-type s8vector)
|
||
|
(define-error-type u8vector)
|
||
|
(define-error-type s16vector)
|
||
|
(define-error-type u16vector)
|
||
|
(define-error-type s32vector)
|
||
|
(define-error-type u32vector)
|
||
|
(define-error-type s64vector)
|
||
|
(define-error-type u64vector)
|
||
|
(define-error-type f32vector)
|
||
|
(define-error-type f64vector)
|
||
|
|
||
|
) ;module srfi-4-errors
|