1(module 2 inline-me 3 (foreign-foo external-foo) 4 (import scheme (chicken base)) 5 (import (only (chicken foreign) foreign-lambda*)) 6 7 (define foreign-foo (foreign-lambda* int ((int x)) "C_return ( x + 1 );")) 8 9 (define (external-foo x y) (display x y)) 10 11) 12