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