Changeset 35775 in project


Ignore:
Timestamp:
07/06/18 18:44:27 (3 months ago)
Author:
kon
Message:

"atomize"

Location:
release/5/check-errors/trunk
Files:
16 added
2 deleted
6 edited

Legend:

Unmodified
Added
Removed
  • release/5/check-errors/trunk/check-errors.egg

    r35770 r35775  
    99 (test-dependencies test)
    1010 (components
     11  ;;
     12  (extension type-errors-basic
     13    #;(inline-file)
     14    (types-file)
     15    (csc-options "-no-procedure-checks" "-no-bound-checks") )
     16  (extension type-errors-numbers
     17    #;(inline-file)
     18    (types-file)
     19    (csc-options "-no-procedure-checks" "-no-bound-checks") )
     20  (extension type-errors-atoms
     21    #;(inline-file)
     22    (types-file)
     23    (component-dependencies type-errors-numbers)
     24    (csc-options "-no-procedure-checks" "-no-bound-checks") )
     25  (extension type-errors-structured
     26    #;(inline-file)
     27    (types-file)
     28    (csc-options "-no-procedure-checks" "-no-bound-checks") )
    1129  (extension type-errors
    1230    #;(inline-file)
    1331    (types-file)
     32    (component-dependencies type-errors-basic type-errors-atoms type-errors-structured)
    1433    (csc-options "-no-procedure-checks" "-no-bound-checks") )
     34  ;;
     35  (extension type-checks-basic
     36    #;(inline-file)
     37    (types-file)
     38    (component-dependencies type-errors-basic)
     39    (csc-options "-O3" "-d1" "-no-procedure-checks" "-no-bound-checks") )
     40  (extension type-checks-numbers
     41    #;(inline-file)
     42    (types-file)
     43    (component-dependencies type-errors-numbers)
     44    (csc-options "-O3" "-d1" "-no-procedure-checks" "-no-bound-checks") )
     45  (extension type-checks-atoms
     46    #;(inline-file)
     47    (types-file)
     48    (component-dependencies type-errors-atoms type-checks-numbers)
     49    (csc-options "-O3" "-d1" "-no-procedure-checks" "-no-bound-checks") )
     50  (extension type-checks-structured
     51    #;(inline-file)
     52    (types-file)
     53    (component-dependencies type-errors-structured)
     54    (csc-options "-O3" "-d1" "-no-procedure-checks" "-no-bound-checks") )
    1555  (extension type-checks
    1656    #;(inline-file)
    1757    (types-file)
    18     (component-dependencies type-errors)
     58    (component-dependencies type-errors type-checks-basic type-checks-atoms type-checks-structured)
    1959    (csc-options "-O3" "-d1" "-no-procedure-checks" "-no-bound-checks") )
     60  ;;
    2061  (extension srfi-4-errors
    2162    #;(inline-file)
    2263    (types-file)
    23     (component-dependencies type-errors)
     64    (component-dependencies type-errors-structured)
    2465    (csc-options "-no-procedure-checks" "-no-bound-checks") )
    2566  (extension srfi-4-checks
     
    2869    (component-dependencies type-checks srfi-4-errors)
    2970    (csc-options "-O3" "-d1" "-no-procedure-checks" "-no-bound-checks") )
     71  ;;
    3072  (extension check-errors
    3173    #;(inline-file)
    3274    (types-file)
    33     (component-dependencies type-checks type-errors srfi-4-checks srfi-4-errors)
    34     (csc-options "-O3" "-d1" "-no-procedure-checks" "-no-bound-checks") ) ) )
     75    (component-dependencies type-checks type-errors srfi-4-checks srfi-4-errors) ) ) )
  • release/5/check-errors/trunk/check-errors.scm

    r35770 r35775  
    1 ;;;; check-errors.scm  -*- Hen -*-
     1;;;; check-errors.scm
    22;;;; Kon Lovett, Jun '17
    33;;;; Kon Lovett, Dec '12
  • release/5/check-errors/trunk/srfi-4-checks.impl.scm

    r35770 r35775  
    33(import scheme
    44  (srfi 4)
    5   (only type-checks define-check-type)
     5  (only type-checks-basic define-check-type)
    66  srfi-4-errors)
    7 
    8 (define (any? x) #t)
    97
    108(define-check-type s8vector)
  • release/5/check-errors/trunk/srfi-4-errors.impl.scm

    r35770 r35775  
    22
    33(import scheme
    4   srfi-4
    5   (only type-errors define-error-type))
     4  (srfi 4)
     5  (only type-errors-basic define-error-type))
    66
    77(define-error-type s8vector)
  • release/5/check-errors/trunk/type-checks.scm

    r35770 r35775  
    11;;;; type-checks.scm
     2;;;; Kon Lovett, Jul '18
     3;;;; Kon Lovett, Jun '17
    24;;;; Kon Lovett, Apr '09
    3 ;;;; Kon Lovett, Jun '17
    45
    5 ;; Issues
    6 ;;
    7 ;; - Chicken Generic Arithmetic!
    8 ;;
    9 ;; - check-negative-* (< X 0), check-non-positive-* (<= X 0)
     6(module type-checks ()
    107
    11 (declare (bound-to-procedure ##sys#structure?))
     8(import scheme (chicken module))
     9(import type-checks-basic type-checks-atoms type-checks-structured)
    1210
    13 (module type-checks
    14 
    15 (;export
    16   define-check-type
    17   define-check+error-type
    18   check-defined-value
    19   check-bound-value
    20   check-number
    21   check-fixnum
    22   check-flonum
    23   check-integer
    24   check-real
    25   check-complex
    26   check-rational
    27   check-exact
    28   check-inexact
    29   check-positive-fixnum check-natural-fixnum check-negative-fixnum check-non-positive-fixnum
    30   check-positive-integer check-natural-integer check-negative-integer check-non-positive-integer
    31   check-positive-number check-natural-number check-negative-number check-non-positive-number
    32   check-procedure check-closure
    33   check-input-port
    34   check-output-port
    35   check-list
    36   check-pair
    37   check-blob
    38   check-vector
    39   check-structure
    40   check-record
    41   check-record-type
    42   check-symbol
    43   check-keyword
    44   check-string
    45   check-char
    46   check-boolean
    47   check-alist
    48   check-minimum-argument-count check-argument-count
    49   check-closed-interval check-open-interval
    50   check-half-closed-interval check-half-open-interval
    51   check-range)
    52 
    53 (import (chicken base))                 ; for `include'
    54 
    55 (include "type-checks.impl.scm")
     11(reexport type-checks-basic type-checks-atoms type-checks-structured)
    5612
    5713) ;module type-checks
  • release/5/check-errors/trunk/type-errors.scm

    r35770 r35775  
    44;;;; Kon Lovett, Apr '09
    55
    6 (declare
    7   (bound-to-procedure
    8     ##sys#signal-hook ##sys#error-hook
    9     ##sys#number->string) )
    10 
    116(module type-errors ()
    127
    13 (import (chicken module))
     8(import scheme (chicken module))
     9(import type-errors-basic type-errors-atoms type-errors-structured)
    1410
    15 (export
    16   ;
    17   make-bad-argument-message
    18   make-type-name-message
    19   make-error-type-message
    20   ;
    21   signal-bounds-error signal-type-error
    22   ;
    23   error-argument-type
    24   warning-argument-type
    25   (define-error-type error-argument-type)
    26   ;
    27   error-bound-value
    28   error-defined-value
    29   error-number
    30   error-fixnum
    31   error-flonum
    32   error-integer
    33   error-real
    34   error-complex
    35   error-rational
    36   error-exact
    37   error-inexact
    38   error-positive-number error-natural-number error-negative-number error-non-positive-number
    39   error-positive-fixnum error-natural-fixnum error-negative-fixnum error-non-positive-fixnum
    40   error-positive-integer error-natural-integer error-negative-integer error-non-positive-integer
    41   error-procedure error-closure
    42   error-input-port
    43   error-output-port
    44   error-list
    45   error-pair
    46   error-blob
    47   error-vector
    48   error-structure
    49   error-record
    50   error-record-type
    51   error-symbol
    52   error-keyword
    53   error-string
    54   error-char
    55   error-boolean
    56   error-plist
    57   error-alist
    58   error-minimum-argument-count
    59   error-argument-count
    60   error-range
    61   error-interval
    62   error-closed-interval error-open-interval
    63   error-half-open-interval error-half-closed-interval)
    64 
    65 (import (chicken base))                 ; for `include'
    66 
    67 (include "type-errors.impl.scm")
     11(reexport type-errors-basic type-errors-atoms type-errors-structured)
    6812
    6913) ;module type-errors
Note: See TracChangeset for help on using the changeset viewer.