(use chicken-syntax)
(module test (test-proc)
  (import scheme srfi-1)
  (define test-proc
    (case-lambda (() 42)
		 ((arg) arg))))