Changeset 7338 in project for chicken/trunk/library.scm


Ignore:
Timestamp:
01/11/08 22:00:19 (13 years ago)
Author:
felix winkelmann
Message:

error-handler expected stream port for ##sys#standard-error

File:
1 edited

Legend:

Unmodified
Added
Removed
  • chicken/trunk/library.scm

    r7309 r7338  
    27612761                ((eq? x (##sys#slot '##sys#arbitrary-unbound-symbol 0))
    27622762                 (outstr port "#<unbound value>") )
    2763                 ((not (##core#inline "C_blockp" x)) (outstr port "#<unprintable object>"))
     2763                ((not (##core#inline "C_blockp" x)) (outstr port "#<invalid immediate object>"))
     2764                ((##core#inline "C_forwardedp" x) (outstr port "#<invalid forwarded object>"))
    27642765                ((##core#inline "C_symbolp" x)
    27652766                 (cond [(fx= 0 (##sys#byte (##sys#slot x 1) 0))
     
    34003401       (##sys#error-handler (lambda args (##core#inline "C_halt" "error in error")))
    34013402       (cond ((##sys#fudge 4)
    3402               (##core#inline "C_display_string" ##sys#standard-error "Error")
     3403              (##sys#print "Error" #f ##sys#standard-error)
    34033404              (when msg
    34043405                (##sys#print ": " #f ##sys#standard-error)
    34053406                (##sys#print msg #f ##sys#standard-error) )
    34063407              (cond [(fx= 1 (length args))
    3407                      (##core#inline "C_display_string" ##sys#standard-error ": ")
     3408                     (##sys#print ": " #f ##sys#standard-error)
    34083409                     (##sys#print (##sys#slot args 0) #t ##sys#standard-error) ]
    34093410                    [else
    34103411                     (##sys#for-each
    34113412                      (lambda (x)
    3412                         (##core#inline "C_display_char" ##sys#standard-error #\newline)
     3413                        (##sys#print #\newline #f ##sys#standard-error)
    34133414                        (##sys#print x #t ##sys#standard-error) )
    34143415                      args) ] )
    3415               (##core#inline "C_display_char" ##sys#standard-error #\newline)
     3416              (##sys#print #\newline #f ##sys#standard-error)
    34163417              (print-call-chain ##sys#standard-error)
    34173418              (when (and ##sys#break-on-error (##sys#symbol-has-toplevel-binding? 'repl))
    34183419                (repl)
    3419                 (##core#inline "C_display_char" ##sys#standard-error #\newline)
     3420                (##sys#print #\newline #f ##sys#standard-error)
    34203421                (##core#inline "C_exit_runtime" _ex_software) )
    34213422              (##core#inline "C_halt" #f) )
Note: See TracChangeset for help on using the changeset viewer.