[Chicken-janitors] #451: Unexpected warning using define-values at toplevel.

[Chicken Trac]

#451: Unexpected warning using define-values at toplevel.
-------------------------------+--------------------------------------------
 Reporter:  alanpost           |       Owner:       
     Type:  defect             |      Status:  new  
 Priority:  not urgent at all  |   Milestone:  4.7.0
Component:  compiler           |     Version:  4.6.x
 Keywords:                     |  
-------------------------------+--------------------------------------------
 The following program:

 {{{
 (define-values (foo bar)
   (values
     (lambda () 0)
     (lambda () 1)))
 }}}

 When compiled with 'csc -d2 -o define-values define-values.scm'

 Gives the following warning:

 {{{

 Note: local assignment to unused variable `foo' may be unintended

 Note: local assignment to unused variable `bar' may be unintended
 }}}

 I would expect to get no warning in this case, and instead have two top-
 level definitions, 'foo' and 'bar' after calling define-values.

 This warning only happens with '-d2'.

-- 
Ticket URL: <http://bugs.call-cc.org/ticket/451>
Chicken Scheme <http://www.call-with-current-continuation.org/>
Chicken Scheme is a compiler for the Scheme programming language.