Changeset 7338 in project


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

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

Location:
chicken/trunk
Files:
3 edited

Legend:

Unmodified
Added
Removed
  • chicken/trunk/chicken.h

    r7167 r7338  
    767767#define C_mk_bool(x)               ((x) ? C_SCHEME_TRUE : C_SCHEME_FALSE)
    768768#define C_mk_nbool(x)              ((x) ? C_SCHEME_FALSE : C_SCHEME_TRUE)
    769 #define C_port_file(p)             ((C_FILEPTR)C_u_i_car(p))
     769#define C_port_file(p)             ((C_FILEPTR)C_block_item(p, 0))
    770770#define C_data_pointer(x)          ((void *)((C_SCHEME_BLOCK *)(x))->data)
    771771#define C_invert_flag(f)           (!(f))
     
    813813#define C_boundp(x)               C_mk_bool(((C_SCHEME_BLOCK *)(x))->data[ 0 ] != C_SCHEME_UNBOUND)
    814814#define C_blockp(x)               C_mk_bool(!C_immediatep(x))
     815#define C_forwardedp(x)           C_mk_bool((C_block_header(x) & C_GC_FORWARDING_BIT) != 0)
    815816#define C_immp(x)                 C_mk_bool(C_immediatep(x))
    816817#define C_flonump(x)              C_mk_bool(C_block_header(x) == C_FLONUM_TAG)
  • chicken/trunk/extras.scm

    r6827 r7338  
    766766               (out (##sys#lambda-info->string obj) col)
    767767               (out "#>" col) )
    768               (else               (out "#<unprintable object>" col)) ) )
     768              (else (out "#<unprintable object>" col)) ) )
    769769
    770770      (define (pp obj col)
  • 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.