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