Changeset 15711 in project


Ignore:
Timestamp:
09/02/09 22:26:14 (10 years ago)
Author:
Kon Lovett
Message:

Rel 1.3.0

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

Legend:

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

    r15588 r15711  
    66(module type-errors (;export
    77  ;;
     8  make-error-type-message
    89  error-argument-type
    9   make-error-type-message
     10  warning-argument-type
    1011  ;;
    1112  error-fixnum
     
    6465      #\space kndnam) ) )
    6566
     67;;
     68
    6669(define (error-argument-type loc obj kndnam #!optional argnam)
    6770  (##sys#signal-hook #:type-error loc (make-error-type-message kndnam argnam) obj) )
     71
     72;;
     73
     74(define (warning-argument-type loc obj typnam #!optional argnam)
     75  (warning
     76    (string-append
     77      (if loc (conc #\( (symbol->string loc) #\) #\space) "")
     78      (conc (apply make-error-type-message typnam argnam) #\: #\space)
     79      (->string obj))) )
    6880
    6981;;
  • release/4/check-errors/trunk/type-errors.scm

    r15588 r15711  
    66(module type-errors (;export
    77  ;;
     8  make-error-type-message
    89  error-argument-type
    9   make-error-type-message
     10  warning-argument-type
    1011  ;;
    1112  error-fixnum
     
    6465      #\space kndnam) ) )
    6566
     67;;
     68
    6669(define (error-argument-type loc obj kndnam #!optional argnam)
    6770  (##sys#signal-hook #:type-error loc (make-error-type-message kndnam argnam) obj) )
     71
     72;;
     73
     74(define (warning-argument-type loc obj typnam #!optional argnam)
     75  (warning
     76    (string-append
     77      (if loc (conc #\( (symbol->string loc) #\) #\space) "")
     78      (conc (apply make-error-type-message typnam argnam) #\: #\space)
     79      (->string obj))) )
    6880
    6981;;
Note: See TracChangeset for help on using the changeset viewer.