Changeset 21080 in project


Ignore:
Timestamp:
10/26/10 04:36:12 (11 years ago)
Author:
Kon Lovett
Message:

Use of new variable-item. exit code for test.

Location:
release/4/error-utils
Files:
8 edited
1 copied

Legend:

Unmodified
Added
Removed
  • release/4/error-utils/tags/1.0.1/error-utils.meta

    r20288 r21080  
    99 (depends
    1010  (setup-helper "1.2.0")
    11   (moremacros "1.1.0"))
     11  (moremacros "1.2.0"))
    1212 (test-depends test)
    1313 (files
  • release/4/error-utils/tags/1.0.1/error-utils.scm

    r19669 r21080  
    1414    chicken
    1515    (only ports with-output-to-port)
    16     (only extras format))
     16    (only extras format)
     17    (only type-checks check-procedure))
    1718
    18   (require-library ports extras)
    19  
     19  (require-library ports extras type-checks)
     20
    2021  (use variable-item)
    2122
     
    5556;; Format version of error
    5657
    57 (define-variable error-format-procedure format procedure? 'procedure)
     58(define-checked-variable error-format-procedure format procedure)
    5859
    5960(define (errorf . args)
  • release/4/error-utils/tags/1.0.1/error-utils.setup

    r20288 r21080  
    66
    77(required-extension-version
    8   "moremacros"       "1.1.0")
     8  "moremacros"       "1.2.0")
    99
    10 (setup-shared-extension-module 'error-utils (extension-version "1.0.0")
     10(setup-shared-extension-module 'error-utils (extension-version "1.1.0")
    1111  #:compile-options '(
    1212    -fixnum-arithmetic
  • release/4/error-utils/tags/1.0.1/tests/run.scm

    r19665 r21080  
    88  (test-error (errorf "foo ~A ~S" "hello" "hello"))
    99)
     10
     11(unless (zero? (test-failure-count)) (exit 1))
  • release/4/error-utils/trunk/error-utils.meta

    r20288 r21080  
    99 (depends
    1010  (setup-helper "1.2.0")
    11   (moremacros "1.1.0"))
     11  (moremacros "1.2.0"))
    1212 (test-depends test)
    1313 (files
  • release/4/error-utils/trunk/error-utils.scm

    r19669 r21080  
    1414    chicken
    1515    (only ports with-output-to-port)
    16     (only extras format))
     16    (only extras format)
     17    (only type-checks check-procedure))
    1718
    18   (require-library ports extras)
    19  
     19  (require-library ports extras type-checks)
     20
    2021  (use variable-item)
    2122
     
    5556;; Format version of error
    5657
    57 (define-variable error-format-procedure format procedure? 'procedure)
     58(define-checked-variable error-format-procedure format procedure)
    5859
    5960(define (errorf . args)
  • release/4/error-utils/trunk/error-utils.setup

    r20288 r21080  
    66
    77(required-extension-version
    8   "moremacros"       "1.1.0")
     8  "moremacros"       "1.2.0")
    99
    10 (setup-shared-extension-module 'error-utils (extension-version "1.0.0")
     10(setup-shared-extension-module 'error-utils (extension-version "1.0.1")
    1111  #:compile-options '(
    1212    -fixnum-arithmetic
  • release/4/error-utils/trunk/tests/run.scm

    r19665 r21080  
    88  (test-error (errorf "foo ~A ~S" "hello" "hello"))
    99)
     10
     11(unless (zero? (test-failure-count)) (exit 1))
Note: See TracChangeset for help on using the changeset viewer.