Ignore:
Timestamp:
09/05/09 03:33:17 (10 years ago)
Author:
Kon Lovett
Message:

Added 'signal-type-error'

File:
1 edited

Legend:

Unmodified
Added
Removed
  • release/4/check-errors/trunk/type-errors.scm

    r15711 r15735  
    77  ;;
    88  make-error-type-message
     9  signal-type-error
    910  error-argument-type
    1011  warning-argument-type
     
    6768;;
    6869
     70(define (signal-type-error loc msg . objs)
     71  (apply ##sys#signal-hook #:type-error loc msg objs) )
     72
     73;;
     74
    6975(define (error-argument-type loc obj kndnam #!optional argnam)
    70   (##sys#signal-hook #:type-error loc (make-error-type-message kndnam argnam) obj) )
     76  (signal-type-error loc (make-error-type-message kndnam argnam) obj) )
    7177
    7278;;
Note: See TracChangeset for help on using the changeset viewer.