Incorrect Expansion of => Clauses with Literals in Cond

[rnvannatta]

A clause in a cond statement of the form (<literal> => proc) where <literal> is any literal except #f does not evaluate correctly. Upon evaluation of (cond (#t => identity), chicken throws the following error:

#;>(cond (#t => identity))

Error: unbound variable: =>

	Call history:

	<syntax>	  (cond (#t => identity))
	<syntax>	  (##core#begin => identity)	<--'')

The code should expand to

(##core#let ((tmp #t)) (##core#if tmp (identity tmp) (##core#undefined)))

as it does for non-literal values.

[evhan]

Thanks for the report. This has already been fixed in CHICKEN 4.10 and on. If you can upgrade to 4.10 (4.9.0 is roughly two years old now), please do so and let us know if you see the same behaviour.