Ignore:
Timestamp:
07/20/09 23:46:01 (11 years ago)
Author:
felix winkelmann
Message:

merged trunk rev. 15243 into prerelease branch

File:
1 edited

Legend:

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

    r15235 r15245  
    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 
    18321824(r-c-s
    18331825 '(for-each ##sys#for-each #%for-each)
     
    18491841 `((pair? . ,(##sys#primitive-alias 'pair?))))
    18501842
     1843(r-c-s
     1844 '(o #%o)
     1845 (lambda (x r c)
     1846   (if (and (fx> (length x) 1)
     1847            (memq 'o extended-bindings) )
     1848       (let ((%tmp (r 'tmp)))
     1849         `(,(r 'lambda) (,%tmp) ,(fold-right list %tmp (cdr x))))
     1850       x)))
     1851
    18511852(let ((env `((display . ,(##sys#primitive-alias 'display)) ;XXX clean this up
    18521853             (write . ,(##sys#primitive-alias 'write))
     
    18611862     (let* ((out (gensym 'out))
    18621863            (code (compile-format-string
    1863                    'sprintf out
     1864                   (if (memq (car x) '(sprintf #%sprintf))
     1865                       'sprintf
     1866                       'format)
     1867                   out
    18641868                   x
    18651869                   (cdr x)
Note: See TracChangeset for help on using the changeset viewer.