Changeset 15245 in project
- Timestamp:
- 07/20/09 23:46:01 (10 years ago)
- Location:
- chicken/branches/prerelease
- Files:
-
- 3 edited
Legend:
- Unmodified
- Added
- Removed
-
chicken/branches/prerelease/c-platform.scm
r15229 r15245 159 159 160 160 (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 162 162 fx= fx> fx< fx>= fx<= fixnum? fxneg fxmax fxmin identity fp+ fp- fp* fp/ fpmin fpmax fpneg 163 163 fp> fp< fp= fp>= fp<= fxand fxnot fxior fxxor fxshr fxshl bit-set? … … 203 203 '(vector 204 204 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 206 206 apply call-with-current-continuation set-car! set-cdr! write-char newline write display 207 207 peek-char char-ready? … … 212 212 u8vector->blob/shared s8vector->blob/shared u16vector->blob/shared s16vector->blob/shared u32vector->blob/shared 213 213 f32vector->blob/shared f64vector->blob/shared 214 s32vector->blob/shared read-string read-string! 214 s32vector->blob/shared read-string read-string! o 215 215 ##sys#make-structure print* ##sys#make-vector ##sys#apply ##sys#setislot ##sys#block-ref 216 216 ##sys#byte ##sys#setbyte -
chicken/branches/prerelease/manual/faq
r15229 r15245 471 471 {{cpu-time}} {{error}} {{call/cc}} {{any?}} 472 472 {{substring=?}} {{substring-ci=?}} {{substring-index}} {{substring-index-ci}} 473 {{printf}} {{sprintf}} {{fprintf}} {{format}} 473 {{printf}} {{sprintf}} {{fprintf}} {{format}} {{o}} 474 474 475 475 ==== What's the difference betweem "block" and "local" mode? -
chicken/branches/prerelease/optimizer.scm
r15235 r15245 1822 1822 (if (symbol? names) (list names) names) ) ) ) 1823 1823 1824 (r-c-s1825 '(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 1832 1824 (r-c-s 1833 1825 '(for-each ##sys#for-each #%for-each) … … 1849 1841 `((pair? . ,(##sys#primitive-alias 'pair?)))) 1850 1842 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 1851 1852 (let ((env `((display . ,(##sys#primitive-alias 'display)) ;XXX clean this up 1852 1853 (write . ,(##sys#primitive-alias 'write)) … … 1861 1862 (let* ((out (gensym 'out)) 1862 1863 (code (compile-format-string 1863 'sprintf out 1864 (if (memq (car x) '(sprintf #%sprintf)) 1865 'sprintf 1866 'format) 1867 out 1864 1868 x 1865 1869 (cdr x)
Note: See TracChangeset
for help on using the changeset viewer.