Changeset 7338 in project for chicken/trunk/chicken.h


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/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)
Note: See TracChangeset for help on using the changeset viewer.