Welcome to the CHICKEN Scheme pasting service

(module bla (foo)

(import chicken scheme foreign)

(define-external
  (blabla (int baton) (c-string path)
               (int dirent)
               (int lock)
               (c-string base-path) (int pool))
  void
  (print "HELLO"))

(define (foo) ((foreign-safe-lambda* void () "blabla(1, \"2\", 3, 4, \"5\", 6);")))
)

(import bla)
(foo)

Error: bad argument count - received 6 but expected 2: #<procedure>

	Call history:

	test.scm:17: bla#foo	  
	##sys#gc	  
	g2627	  	<--