Changeset 6865 in project for tcc/tcc.scm


Ignore:
Timestamp:
11/16/07 13:32:11 (13 years ago)
Author:
felix winkelmann
Message:

removed deprecated features

File:
1 edited

Legend:

Unmodified
Added
Removed
  • tcc/tcc.scm

    r1 r6865  
    5151
    5252(define tcc:compile-string
    53   (let ([compile (foreign-callback-lambda int "tcc_compile_string" tcc-state* c-string)])
     53  (let ([compile (foreign-safe-lambda int "tcc_compile_string" tcc-state* c-string)])
    5454    (lambda (s str)
    5555      (check 'tcc:compile-string (cut compile s str) "errors during compilation") ) ) )
     
    7979
    8080(define tcc:run
    81   (foreign-callback-lambda* int ([tcc-state* state] [scheme-object args])
     81  (foreign-safe-lambda* int ([tcc-state* state] [scheme-object args])
    8282    "char **argv, *ptr;"
    8383    "C_word arg;"
Note: See TracChangeset for help on using the changeset viewer.