id summary reporter owner description type status priority milestone component version resolution keywords cc difficulty 1336 Another parameterize issue reported by Joo ChurlSoo Mario Domenech Goulart "Reported by Joo ChurlSoo via e-mail. {{{ CHICKEN (c) 2008-2016, The CHICKEN Team (c) 2000-2007, Felix L. Winkelmann Version 4.11.0 (rev ce980c4) windows-mingw32-x86 [ manyargs dload ptables ] compiled 2016-05-28 on yves.more-magic.net (Linux) #;1> (let ((f (make-parameter 'a)) (path '()) (g (make-parameter 'g)) (c #f)) (let ((add (lambda () (set! path (cons (f) path))))) (add) (parameterize ((f 'b) (g (call-with-current-continuation (lambda (c0) (set! c c0) 'c)))) (add) (f (g)) (add)) (f 'd) (add) (if (< (length path) 8) (c 'e) (reverse path)))) (a b c d b e d b e d) ; correct #;2> (let ((f (make-parameter 'a)) (path '()) (g (make-parameter 'g)) (c #f)) (let ((add (lambda () (set! path (cons (f) path))))) (add) (parameterize ((f 'b)) (g (call-with-current-continuation (lambda (c0) (set! c c0) 'c))) (add) (f (g)) (add)) (f 'd) (add) (if (< (length path) 8) (c 'e) (reverse path)))) (a b c d a e d d e d) ; seems to be incorrect ;; (cf.) (a b c d c e d e e d) }}}" defect closed critical 4.12.0 core libraries 4.11.0 fixed parameterize