Changeset 15946 in project for chicken


Ignore:
Timestamp:
09/18/09 15:45:18 (10 years ago)
Author:
felix
Message:

possible bugfix for optimization problem reported by Thomas Chust

File:
1 edited

Legend:

Unmodified
Added
Removed
  • chicken/trunk/optimizer.scm

    r15580 r15946  
    202202          ((let)
    203203           (let ([var (first params)])
    204              (cond [(or (test var 'replacable)
     204             (cond [(or ;(test var 'replacable)
    205205                        (test var 'removable)
    206206                        (and (test var 'contractable) (not (test var 'replacing))) )
Note: See TracChangeset for help on using the changeset viewer.