Changeset 36583 in project


Ignore:
Timestamp:
09/10/18 03:31:01 (2 months ago)
Author:
kon
Message:

restore lib-like error message

Location:
release/5/mailbox/trunk
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • release/5/mailbox/trunk/mailbox.egg

    r36579 r36583  
    44((synopsis "Thread-safe queues with timeout")
    55 (category hell)
    6  (version "3.3.0")
     6 (version "3.3.1)
    77 (author "[[felix winkelman]] and [[kon lovett]]")
    88 (license "BSD")
  • release/5/mailbox/trunk/mailbox.scm

    r36579 r36583  
    176176    (string-append "bad `" (->string argnam) "' argument") ) )
    177177
     178(define (make-type-name-message typnam)
     179  (string-append "a " (->string typnam)) )
     180
    178181(define (make-error-type-message typnam #!optional argnam)
    179   (string-append (make-bad-argument-message argnam) " type - not " (->string typnam)) )
     182  (string-append
     183    (make-bad-argument-message argnam)
     184    " type - not "
     185    (make-type-name-message typnam)) )
    180186
    181187;;
Note: See TracChangeset for help on using the changeset viewer.