Re: [Chicken-janitors] #1630: Optimizer sometimes incorrectly drops procedure arguments

[Chicken Trac]

#1630: Optimizer sometimes incorrectly drops procedure arguments
---------------------------------+----------------------
            Reporter:  sjamaan   |      Owner:
                Type:  defect    |     Status:  reopened
            Priority:  major     |  Milestone:  5.2
           Component:  compiler  |    Version:  5.1.0
          Resolution:            |   Keywords:
Estimated difficulty:  medium    |
---------------------------------+----------------------
Changes (by megane):

 * status:  closed => reopened
 * resolution:  worksforme =>


Comment:

 This fails too, but shouldn't. The true branch is never called.
 {{{
 (define (foo x y)
   (define (append-map proc lst1 . lsts)
     (if (null? lsts)
         (proc 1)
         (proc 1 2)))
   (append-map (lambda (a b) (print a b)) x y))
 }}}

--
Ticket URL: <https://bugs.call-cc.org/ticket/1630#comment:6>
CHICKEN Scheme <https://www.call-cc.org/>
CHICKEN Scheme is a compiler for the Scheme programming language.