Changeset 15234 in project for chicken/trunk/optimizer.scm


Ignore:
Timestamp:
07/17/09 20:59:08 (12 years ago)
Author:
felix winkelmann
Message:

compiler-syntax based optimization of "o"; extended bindings weren't properly handled with regard to constant-folding; lambdas in operator position are now correctly handled and optimized (after expansion of procedure-call form)

File:
1 edited

Legend:

Unmodified
Added
Removed
  • chicken/trunk/optimizer.scm

    r15117 r15234  
    18221822     (if (symbol? names) (list names) names) ) ) )
    18231823
     1824(r-c-s
     1825 '(o #%o)
     1826 (lambda (x r c)
     1827   (if (fx> (length x) 1)
     1828       (let ((%tmp (r 'tmp)))
     1829         `(,(r 'lambda) (,%tmp) ,(fold-right list %tmp (cdr x))))
     1830       x)))
     1831
    18241832(r-c-s
    18251833 '(for-each ##sys#for-each #%for-each)
Note: See TracChangeset for help on using the changeset viewer.