Changeset 34212 in project


Ignore:
Timestamp:
06/26/17 18:08:30 (3 months ago)
Author:
kon
Message:

use def not def const

Location:
release/4/check-errors
Files:
3 edited
8 copied

Legend:

Unmodified
Added
Removed
  • release/4/check-errors/tags/2.0.2/check-errors.scm

    r34206 r34212  
    11;;;; check-errors.scm  -*- Hen -*-
     2;;;; Kon Lovett, Jun '17
    23;;;; Kon Lovett, Dec '12
    34
    45(module check-errors ()
    56
    6 (import scheme chicken foreign)
     7(import scheme)
     8
     9(import chicken foreign)
     10
    711(reexport type-checks type-errors srfi-4-checks srfi-4-errors)
    812(require-library type-checks type-errors srfi-4-checks srfi-4-errors)
  • release/4/check-errors/tags/2.0.2/check-errors.setup

    r34206 r34212  
    77; Do not use -local with error modules so error & warning can be rebound.
    88
    9 (setup-shared+static-extension-module 'type-errors (extension-version "2.0.1")
     9(setup-shared+static-extension-module 'type-errors (extension-version "2.0.2")
    1010  #:inline? #t
    1111  #:types? #t
    1212  #:compile-options '(-fixnum-arithmetic -no-procedure-checks -no-bound-checks))
    1313
    14 (setup-shared+static-extension-module 'srfi-4-errors (extension-version "2.0.1")
     14(setup-shared+static-extension-module 'srfi-4-errors (extension-version "2.0.2")
    1515  #:inline? #t
    1616  #:types? #t
    1717  #:compile-options '(-fixnum-arithmetic -no-procedure-checks -no-bound-checks))
    1818
    19 (setup-shared+static-extension-module 'type-checks (extension-version "2.0.1")
     19(setup-shared+static-extension-module 'type-checks (extension-version "2.0.2")
    2020  #:inline? #t
    2121  #:types? #t
     
    2323  #:files '("inline-type-checks.scm"))
    2424
    25 (setup-shared+static-extension-module 'srfi-4-checks (extension-version "2.0.1")
     25(setup-shared+static-extension-module 'srfi-4-checks (extension-version "2.0.2")
    2626  #:inline? #t
    2727  #:types? #t
    2828  #:compile-options '(-optimize-level 3 -debug-level 1 -no-procedure-checks -no-bound-checks))
    2929
    30 (install-extension 'check-errors '() `((version ,(extension-version "2.0.1"))))
     30(install-extension 'check-errors '() `((version ,(extension-version "2.0.2"))))
    3131
    32 (setup-shared+static-extension-module 'check-errors (extension-version "2.0.1")
     32(setup-shared+static-extension-module 'check-errors (extension-version "2.0.2")
    3333  #:inline? #t
    3434  #:types? #t
  • release/4/check-errors/tags/2.0.2/type-errors.scm

    r34206 r34212  
    213213    num) )
    214214
    215 (define-constant +left-open-interval+ '|(|)     ;'|]|
    216 (define-constant +right-open-interval+ '|)|)    ;'|[|
    217 
    218 (define-constant +left-closed-interval+ '|[|)
    219 (define-constant +right-closed-interval+ '|]|)
     215(define +left-open-interval+ '|(|)     ;'|]|
     216(define +right-open-interval+ '|)|)    ;'|[|
     217
     218(define +left-closed-interval+ '|[|)
     219(define +right-closed-interval+ '|]|)
    220220
    221221(define (error-closed-interval loc num min max #!optional argnam)
  • release/4/check-errors/trunk/check-errors.scm

    r34206 r34212  
    11;;;; check-errors.scm  -*- Hen -*-
     2;;;; Kon Lovett, Jun '17
    23;;;; Kon Lovett, Dec '12
    34
    45(module check-errors ()
    56
    6 (import scheme chicken foreign)
     7(import scheme)
     8
     9(import chicken foreign)
     10
    711(reexport type-checks type-errors srfi-4-checks srfi-4-errors)
    812(require-library type-checks type-errors srfi-4-checks srfi-4-errors)
  • release/4/check-errors/trunk/check-errors.setup

    r34206 r34212  
    77; Do not use -local with error modules so error & warning can be rebound.
    88
    9 (setup-shared+static-extension-module 'type-errors (extension-version "2.0.1")
     9(setup-shared+static-extension-module 'type-errors (extension-version "2.0.2")
    1010  #:inline? #t
    1111  #:types? #t
    1212  #:compile-options '(-fixnum-arithmetic -no-procedure-checks -no-bound-checks))
    1313
    14 (setup-shared+static-extension-module 'srfi-4-errors (extension-version "2.0.1")
     14(setup-shared+static-extension-module 'srfi-4-errors (extension-version "2.0.2")
    1515  #:inline? #t
    1616  #:types? #t
    1717  #:compile-options '(-fixnum-arithmetic -no-procedure-checks -no-bound-checks))
    1818
    19 (setup-shared+static-extension-module 'type-checks (extension-version "2.0.1")
     19(setup-shared+static-extension-module 'type-checks (extension-version "2.0.2")
    2020  #:inline? #t
    2121  #:types? #t
     
    2323  #:files '("inline-type-checks.scm"))
    2424
    25 (setup-shared+static-extension-module 'srfi-4-checks (extension-version "2.0.1")
     25(setup-shared+static-extension-module 'srfi-4-checks (extension-version "2.0.2")
    2626  #:inline? #t
    2727  #:types? #t
    2828  #:compile-options '(-optimize-level 3 -debug-level 1 -no-procedure-checks -no-bound-checks))
    2929
    30 (install-extension 'check-errors '() `((version ,(extension-version "2.0.1"))))
     30(install-extension 'check-errors '() `((version ,(extension-version "2.0.2"))))
    3131
    32 (setup-shared+static-extension-module 'check-errors (extension-version "2.0.1")
     32(setup-shared+static-extension-module 'check-errors (extension-version "2.0.2")
    3333  #:inline? #t
    3434  #:types? #t
  • release/4/check-errors/trunk/type-errors.scm

    r34206 r34212  
    213213    num) )
    214214
    215 (define-constant +left-open-interval+ '|(|)     ;'|]|
    216 (define-constant +right-open-interval+ '|)|)    ;'|[|
    217 
    218 (define-constant +left-closed-interval+ '|[|)
    219 (define-constant +right-closed-interval+ '|]|)
     215(define +left-open-interval+ '|(|)     ;'|]|
     216(define +right-open-interval+ '|)|)    ;'|[|
     217
     218(define +left-closed-interval+ '|[|)
     219(define +right-closed-interval+ '|]|)
    220220
    221221(define (error-closed-interval loc num min max #!optional argnam)
Note: See TracChangeset for help on using the changeset viewer.