id	summary	reporter	owner	description	type	status	priority	milestone	component	version	resolution	keywords	cc	difficulty
1284	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."	defect	closed	not urgent at all	someday	expander	4.9.x	invalid	cond =>