Re: cond-expand-provide and (scheme base)

[Taylan Kammer]

On 22.10.2020 20:24, Taylan Kammer wrote:
> I think the following discrepancy should probably be fixed:
>
>    $ guile -L ~/src/scheme/bytestructures/
>    guile> ,use (scheme eval)
>    guile> (eval '(cond-expand (lp64 #t) (else #f))
>                 (environment '(guile)  ; <=== DIFFERENCE HERE
>                              '(bytestructures guile numeric-data-model)))
>    $1 = #t
>    guile> (eval '(cond-expand (lp64 #t) (else #f))
>                 (environment '(scheme base)  ; <=== DIFFERENCE HERE
>                              '(bytestructures guile numeric-data-model)))
>    $2 = #f

To clarify:

The module (bytestructures guile numeric-data-model) provides the 'lp64' 
condition via 'cond-expand-provide'.

The 'cond-expand' imported from the (guile) module correctly sees this, 
but the one imported from (scheme base) seems to ignore it.

Taylan