Code coverage

[jeremy]

Hello dear guilers !

I have implemented a code coverage test with a piece of code I modified 
for my usage, here it is (filename : cybo-cov.scm):

(use-modules (system vm coverage)
             (system vm vm)
             (srfi srfi-11))

(let ((output-directory
       (string-append
        (getenv "HOME") "/Workspace/guile-cybo/coverage")))
  (let-values (((data . values)
                (with-code-coverage (the-vm)
                                    (lambda ()
                                      (load "cybo-test.scm")))))
    (let* ((port (mkstemp! (string-copy "/tmp/cybo-coverage-XXXXXX")))
           (file (port-filename port)))
      (coverage-data->lcov data port)
      (close port)
      (when (not (zero? (system* "genhtml" file "-o" output-directory)))
            (error "genhtml failed"))
      (delete-file file))))

When I execute

$ guile -L .

then

scheme@(guile-user)> (load "cybo-cov.scm")

The report seems to cover my project and all Guile 2.0 code. I would 
like the test to focus on my project only.
Does someone know how I can configure the test ?

Thank you in advance for your help.

Jeko