Ticket #921: coops-patch.diff

File coops-patch.diff, 1.6 KB (added by Christian Kellermann, 9 years ago)
  • coops-primitive-objects.scm

     
    5252 (defprim <vector> vector? <sequence>)
    5353 (defprim <number-vector> number-vector? <sequence> <record>)
    5454  (defprim <u8vector> (cut ##sys#structure? <> 'u8vector) <number-vector>)
    55   (defprim <s8vector> (cut ##sys#structure? <> 'u8vector) <number-vector>)
    56   (defprim <u16vector> (cut ##sys#structure? <> 'u8vector) <number-vector>)
    57   (defprim <s16vector> (cut ##sys#structure? <> 'u8vector) <number-vector>)
    58   (defprim <u32vector> (cut ##sys#structure? <> 'u8vector) <number-vector>)
    59   (defprim <s32vector> (cut ##sys#structure? <> 'u8vector) <number-vector>)
    60   (defprim <f32vector> (cut ##sys#structure? <> 'u8vector) <number-vector>)
    61   (defprim <f64vector> (cut ##sys#structure? <> 'u8vector) <number-vector>)
     55  (defprim <s8vector> (cut ##sys#structure? <> 's8vector) <number-vector>)
     56  (defprim <u16vector> (cut ##sys#structure? <> 'u16vector) <number-vector>)
     57  (defprim <s16vector> (cut ##sys#structure? <> 's16vector) <number-vector>)
     58  (defprim <u32vector> (cut ##sys#structure? <> 'u32vector) <number-vector>)
     59  (defprim <s32vector> (cut ##sys#structure? <> 's32vector) <number-vector>)
     60  (defprim <f32vector> (cut ##sys#structure? <> 'f32vector) <number-vector>)
     61  (defprim <f64vector> (cut ##sys#structure? <> 'f64vector) <number-vector>)
    6262 (defprim <string> string? <sequence>)
    6363 (defprim <char-set> (cut ##sys#structure? <> 'char-set) <sequence> <record>)
    6464 (defprim <symbol> symbol?)