Changeset 15169 in project for chicken/trunk


Ignore:
Timestamp:
07/06/09 10:40:57 (10 years ago)
Author:
felix winkelmann
Message:

applied fix by sjaaman for #54

File:
1 edited

Legend:

Unmodified
Added
Removed
  • chicken/trunk/lolevel.scm

    r13780 r15169  
    365365(define pointer-s8-ref
    366366  (getter-with-setter
    367    (foreign-lambda* int ([c-pointer p]) "return(*((char *)p));")
     367   (foreign-lambda* int ([c-pointer p]) "return(*((signed char *)p));")
    368368   pointer-s8-set!) )
    369369
Note: See TracChangeset for help on using the changeset viewer.