Changeset 21904 in project


Ignore:
Timestamp:
12/11/10 01:32:08 (9 years ago)
Author:
Kon Lovett
Message:

error-minimum-argument-count & error-argument-count failed (missing `fn' arg for ##sys#error-hook).

Location:
release/4/check-errors
Files:
6 edited
1 copied

Legend:

Unmodified
Added
Removed
  • release/4/check-errors/tags/1.12.3/check-errors.setup

    r20263 r21904  
    99; Do not use -local with error modules so error & warning can be rebound.
    1010
    11 (setup-shared-extension-module 'type-errors (extension-version "1.12.2")
     11(setup-shared-extension-module 'type-errors (extension-version "1.12.3")
    1212  #:compile-options '(-fixnum-arithmetic -no-procedure-checks -no-bound-checks))
    1313
    14 (setup-shared-extension-module 'srfi-4-errors (extension-version "1.12.2")
     14(setup-shared-extension-module 'srfi-4-errors (extension-version "1.12.3")
    1515  #:compile-options '(-fixnum-arithmetic -no-procedure-checks -no-bound-checks))
    1616
    17 (setup-shared-extension-module 'type-checks (extension-version "1.12.2")
     17(setup-shared-extension-module 'type-checks (extension-version "1.12.3")
    1818  #:compile-options '(-optimize-level 3 -no-procedure-checks -no-bound-checks))
    1919
    20 (setup-shared-extension-module 'srfi-4-checks (extension-version "1.12.2")
     20(setup-shared-extension-module 'srfi-4-checks (extension-version "1.12.3")
    2121  #:compile-options '(-optimize-level 3 -no-procedure-checks -no-bound-checks))
    2222
    23 (install-extension 'check-errors '() `((version ,(extension-version "1.12.2"))))
     23(install-extension 'check-errors '() `((version ,(extension-version "1.12.3"))))
  • release/4/check-errors/tags/1.12.3/tests/run.scm

    r19889 r21904  
    111111    (check-s8vector 'test tv) )
    112112)
     113
     114(unless (zero? (test-failure-count)) (exit 1))
  • release/4/check-errors/tags/1.12.3/type-errors.scm

    r19889 r21904  
    214214
    215215(define (error-minimum-argument-count loc argc minargc)
    216   (##sys#error-hook (foreign-value "C_BAD_MINIMUM_ARGUMENT_COUNT_ERROR" int) loc minargc argc) )
     216  (##sys#error-hook (foreign-value "C_BAD_MINIMUM_ARGUMENT_COUNT_ERROR" int) loc
     217                    minargc argc #f) )
    217218
    218219(define (error-argument-count loc argc maxargc)
    219   (##sys#error-hook (foreign-value "C_BAD_ARGUMENT_COUNT_ERROR" int) loc maxargc argc) )
     220  (##sys#error-hook (foreign-value "C_BAD_ARGUMENT_COUNT_ERROR" int) loc
     221                    maxargc argc #f) )
    220222
    221223;; Backwards
  • release/4/check-errors/trunk/check-errors.setup

    r20263 r21904  
    99; Do not use -local with error modules so error & warning can be rebound.
    1010
    11 (setup-shared-extension-module 'type-errors (extension-version "1.12.2")
     11(setup-shared-extension-module 'type-errors (extension-version "1.12.3")
    1212  #:compile-options '(-fixnum-arithmetic -no-procedure-checks -no-bound-checks))
    1313
    14 (setup-shared-extension-module 'srfi-4-errors (extension-version "1.12.2")
     14(setup-shared-extension-module 'srfi-4-errors (extension-version "1.12.3")
    1515  #:compile-options '(-fixnum-arithmetic -no-procedure-checks -no-bound-checks))
    1616
    17 (setup-shared-extension-module 'type-checks (extension-version "1.12.2")
     17(setup-shared-extension-module 'type-checks (extension-version "1.12.3")
    1818  #:compile-options '(-optimize-level 3 -no-procedure-checks -no-bound-checks))
    1919
    20 (setup-shared-extension-module 'srfi-4-checks (extension-version "1.12.2")
     20(setup-shared-extension-module 'srfi-4-checks (extension-version "1.12.3")
    2121  #:compile-options '(-optimize-level 3 -no-procedure-checks -no-bound-checks))
    2222
    23 (install-extension 'check-errors '() `((version ,(extension-version "1.12.2"))))
     23(install-extension 'check-errors '() `((version ,(extension-version "1.12.3"))))
  • release/4/check-errors/trunk/tests/run.scm

    r19889 r21904  
    111111    (check-s8vector 'test tv) )
    112112)
     113
     114(unless (zero? (test-failure-count)) (exit 1))
  • release/4/check-errors/trunk/type-errors.scm

    r19889 r21904  
    214214
    215215(define (error-minimum-argument-count loc argc minargc)
    216   (##sys#error-hook (foreign-value "C_BAD_MINIMUM_ARGUMENT_COUNT_ERROR" int) loc minargc argc) )
     216  (##sys#error-hook (foreign-value "C_BAD_MINIMUM_ARGUMENT_COUNT_ERROR" int) loc
     217                    minargc argc #f) )
    217218
    218219(define (error-argument-count loc argc maxargc)
    219   (##sys#error-hook (foreign-value "C_BAD_ARGUMENT_COUNT_ERROR" int) loc maxargc argc) )
     220  (##sys#error-hook (foreign-value "C_BAD_ARGUMENT_COUNT_ERROR" int) loc
     221                    maxargc argc #f) )
    220222
    221223;; Backwards
Note: See TracChangeset for help on using the changeset viewer.