Welcome to the CHICKEN Scheme pasting service

;;; test.scm
(import chicken scheme foreign)

(define foo
  (foreign-lambda void "foo" float))

(foo 0.1)
;;; end of test.scm

;;; external.c
#include <stdio.h> 

void foo(float bar){
    printf("foo got %f\n", bar);
}
;;; end of external.c

Compiled with `csc test.scm external.c`

./test --> foo got -0.000000