CRUNCH in CHICKEN issues

Dear mailing list,

some little issues appeared in my experiments with CRUNCH trunk/v0.99 and maybe
somebody can help me.

== 1. Embed

I am trying to embed crunch modules in test cases written in chicken like this:

    ; test.scm
    (import (scheme base) test crunch)
    (crunch (include "something-in-crunch.scm"))
    (import something-in-crunch)
    ; chicken tests ...

But that fails. Here is a minimal example showing the issue:

    $ cat crunch-embed.scm
    (import (scheme base)
            (scheme write)
            crunch)
    (crunch
        (module crunch-example
                    (foo)
                    (import (scheme base))
                    (define (foo) 123)))
    (import crunch-example)
    (display (foo))
    (newline)

    $ csc crunch-embed.scm
    $ ./crunch-embed

    Error: unbound variable: crunch-example#foo

        Call history:

        crunch-embed.scm:1: chicken.load#load-extension
        crunch-embed.scm:13: crunch-example#foo         <--

The symbol foo is being exported in the module crunch-example, why can't I
access it in the top level? Am I missing something?

Note that foo is in the binary:

    $ nm crunch-embed | grep foo
    00000000004010f4 T foo
    00000000006023a0 D foo___


== 2. (error)

(error ...) does not do what I'd expect. Consider this example:

    $ cat crunch-error.scm
    (import (scheme base))
    (define (main)
        (error 'check "something"))
    (cond-expand ((not crunched) (main)) (else))

When executing with CHICKEN I get the expected error:

    $ csc crunch-error.scm -o err
    $ ./err

    Error: (check) something

        Call history:

        crunch-error.scm:4: main
        crunch-error.scm:3: chicken.base#error          <--

With CRUNCH, I can't compile it:

    $ chicken-crunch crunch-error.scm -o err.c
    Error: crunch-error.scm:3: literal `check' has unrepresentable type
    Error: crunch-error.scm:3: argument types in procedure call `(chicken.base#error (quote <check>) (quote "something"))' do not match.
     call: (procedure (string #!optional string ? ?) noreturn)
     expected: (procedure (string #!optional ? ? ?) noreturn)

The documentations says (error S #!optional ...). I assume S means symbol.

== 3. Emit wrappers

The option -emit-wrappers is not working. The case in `crunch-driver.scm` seems
to have a weird form, so I changed it as follows:

    -          ((("-emit-wrappers" fname) . more)
    +          (("-emit-wrappers" fname . more)

But the file passed to -emit-wrappers ends up empty. How to use this option
properly? What I am trying is again to compile the module with crunch and
import it later in chicken.

Thanks!

Cheers,
-Diogo



--