Closed burgerrg closed 3 years ago
(library (trouble) (export make-param) (import (scheme)) (define (make-param initial) (let ([v initial]) (case-lambda [() v] [(x) (set! v x)]))))
After importing this library, run (expand/optimize '(make-param #f)) and see that v was incorrectly replaced with#f.
(expand/optimize '(make-param #f))
v
#f
Thanks for the report!
Thanks for finding and fixing it so quickly!
After importing this library, run
(expand/optimize '(make-param #f))
and see thatv
was incorrectly replaced with#f
.