[Chicken-hackers] patch: treat #t as alternative to else in cond

[Jörg F. Wittenberger]

Hi all,

attached a single statement patch.  It makes "cond" expand clauses with 
"#t" as condition like "else".

That is

(define (testcase x)
 (cond
  ((eq? x 'a) 1)
  (#t 2)
  ((eq? x 'b) 3)))

will result in a warning:

Warning: non-`else' clause following `else' clause in `cond': ((eq? x 
(quote b)) 3)

and generate the same code as

(define (testcase x)
 (cond
  ((eq? x 'a) 1)
  (else 2)))

BTW: I ran into this when compiling the SRFI-110 reference implementation.

Best Regards

/Jörg

cond-true-else-alias.diff
Description: Text Data