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