Changeset 14528 in project for chicken


Ignore:
Timestamp:
05/05/09 23:28:16 (11 years ago)
Author:
felix winkelmann
Message:

second bug found by scrutinizer

File:
1 edited

Legend:

Unmodified
Added
Removed
  • chicken/branches/scrutiny/optimizer.scm

    r12948 r14528  
    300300                                        (kvar (first (node-parameters k)))
    301301                                        (lval (and (not (test kvar 'unknown)) (test kvar 'value)))
    302                                         (eq? '##core#lambda (node-class lval))
     302                                        ((eq? '##core#lambda (node-class lval)))
    303303                                        (llist (third (node-parameters lval)))
    304304                                        ((or (test (car llist) 'unused)
Note: See TracChangeset for help on using the changeset viewer.