cond-expand-provide and (scheme base)

cond-expand-provide and (scheme base)

[Taylan Kammer]

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

WDYT?


Kind regards,

Taylan

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