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