Changeset 15245 in project for chicken


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

merged trunk rev. 15243 into prerelease branch

Location:
chicken/branches/prerelease
Files:
3 edited

Legend:

Unmodified
Added
Removed
  • chicken/branches/prerelease/c-platform.scm

    r15229 r15245  
    159159
    160160(define default-extended-bindings
    161   '(bitwise-and bitwise-ior bitwise-xor bitwise-not add1 sub1 fx+ fx- fx* fx/ fxmod
     161  '(bitwise-and bitwise-ior bitwise-xor bitwise-not add1 sub1 fx+ fx- fx* fx/ fxmod o
    162162    fx= fx> fx< fx>= fx<= fixnum? fxneg fxmax fxmin identity fp+ fp- fp* fp/ fpmin fpmax fpneg
    163163    fp> fp< fp= fp>= fp<= fxand fxnot fxior fxxor fxshr fxshl bit-set?
     
    203203  '(vector
    204204    cons list string make-vector make-string string->symbol values current-input-port current-output-port
    205     read-char write-char
     205    read-char write-char printf fprintf
    206206    apply call-with-current-continuation set-car! set-cdr! write-char newline write display
    207207    peek-char char-ready?
     
    212212    u8vector->blob/shared s8vector->blob/shared u16vector->blob/shared s16vector->blob/shared u32vector->blob/shared
    213213    f32vector->blob/shared f64vector->blob/shared
    214     s32vector->blob/shared read-string read-string!
     214    s32vector->blob/shared read-string read-string! o
    215215    ##sys#make-structure print* ##sys#make-vector ##sys#apply ##sys#setislot ##sys#block-ref
    216216    ##sys#byte ##sys#setbyte
  • chicken/branches/prerelease/manual/faq

    r15229 r15245  
    471471{{cpu-time}} {{error}} {{call/cc}} {{any?}}
    472472{{substring=?}} {{substring-ci=?}} {{substring-index}} {{substring-index-ci}}
    473 {{printf}} {{sprintf}} {{fprintf}} {{format}}
     473{{printf}} {{sprintf}} {{fprintf}} {{format}} {{o}}
    474474
    475475==== What's the difference betweem "block" and "local" mode?
  • 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.