Changeset 36852 in project


Ignore:
Timestamp:
11/20/18 12:22:48 (3 weeks ago)
Author:
felix
Message:

make unsafe flonum + srfi-4 modules replacements for default core modules

Location:
release/5/unsafe/trunk
Files:
3 edited

Legend:

Unmodified
Added
Removed
  • release/5/unsafe/trunk/unsafe-flonum.scm

    r36664 r36852  
    99             fpneg fpround fpsin fpsqrt fptan
    1010             fptruncate
     11             ;;
     12             flonum-decimal-precision
     13             flonum-epsilon
     14             flonum-maximum-decimal-exponent
     15             flonum-maximum-exponent
     16             flonum-minimum-decimal-exponent
     17             flonum-minimum-exponent
     18             flonum-precision
     19             flonum-print-precision
     20             flonum-radix
     21             fpgcd
     22             maximum-flonum
     23             minimum-flonum
    1124             ;; ...
    1225             )
  • release/5/unsafe/trunk/unsafe-srfi-4.scm

    r36664 r36852  
    1414         f32vector-ref f64vector-ref
    1515         f32vector-set! f64vector-set!
    16          f32vector-length f64vector-length)
     16         f32vector-length f64vector-length
     17         ;;
     18         blob->f32vector blob->f32vector/shared
     19         blob->f64vector blob->f64vector/shared
     20         blob->u8vector blob->u8vector/shared
     21         blob->s8vector blob->s8vector/shared
     22         blob->u16vector blob->u16vector/shared
     23         blob->u16vector blob->s16vector/shared
     24         blob->u32vector blob->u32vector/shared
     25         blob->s32vector blob->s32vector/shared
     26         blob->s64vector blob->s64vector/shared
     27         blob->u64vector blob->u64vector/shared
     28         f32vector->blob f32vector->blob/shared
     29         f64vector->blob f64vector->blob/shared
     30         u8vector->blob u8vector->blob/shared
     31         s8vector->blob s8vector->blob/shared
     32         u16vector->blob u16vector->blob/shared
     33         u16vector->blob s16vector->blob/shared
     34         u32vector->blob u32vector->blob/shared
     35         s32vector->blob s32vector->blob/shared
     36         s64vector->blob s64vector->blob/shared
     37         u64vector->blob u64vector->blob/shared
     38         u8vector s8vector u16vector s16vector u32vector s32vector
     39         u64vector s64vector f32vector f64vector
     40         u8vector? s8vector? u16vector? s16vector? u32vector? s32vector?
     41         f32vector? f64vector?
     42         subu8vector subs8vector subu16vector subs16vector
     43         subu32vector subs32vector subu64vector subs64vector
     44         subf32vector subf64vector
     45         u8vector->list s8vector->list u16vector->list s16vector->list
     46         u32vector->list s32vector->list u64vector->list s64vector->list
     47         f32vector->list f64vector->list
     48         list->u8vector list->s8vector list->u16vector list->s16vector
     49         list->u32vector list->s32vector list->u64vector
     50         list->f32vector list->f64vector
     51         make-u8vector make-s8vector make-u16vector make-s16vector
     52         make-u32vector make-s32vector make-u64vector make-s64vector
     53         make-f32vector make-f64vector
     54         number-vector?
     55         write-u8vector read-u8vector read-u8vector! release-number-vector
     56         )
    1757
    1858  (import scheme)
     59  (import (except srfi-4
     60                  u8vector-length u16vector-length u32vector-length
     61                                   s8vector-length s16vector-length s32vector-length
     62                                   u64vector-length s64vector-length
     63                                   u8vector-ref u16vector-ref u32vector-ref
     64                                   s8vector-ref s16vector-ref s32vector-ref
     65                                   u64vector-ref s64vector-ref
     66                                   u8vector-set! u16vector-set! u32vector-set!
     67                                   s8vector-set! s16vector-set! s32vector-set!
     68                                   u64vector-set! s64vector-set!
     69                                   f32vector-ref f64vector-ref
     70                                   f32vector-set! f64vector-set!
     71                                   f32vector-length f64vector-length))
     72
    1973
    2074(define (u8vector-length x) (##core#inline "C_u_i_u8vector_length" x))
  • release/5/unsafe/trunk/unsafe.egg

    r36664 r36852  
    22 (category data)  ;;XXX ?
    33 (license "BSD")
    4  (author "felix")
     4 (author "felix winkelmann")
    55 (components
    66    (extension chicken.unsafe.flonum
Note: See TracChangeset for help on using the changeset viewer.