Ticket #921: coops-patch.diff

coops-primitive-objects.scm

@@ -52 +52 @@
  (defprim <vector> vector? <sequence>)
  (defprim <number-vector> number-vector? <sequence> <record>)
   (defprim <u8vector> (cut ##sys#structure? <> 'u8vector) <number-vector>)
-  (defprim <s8vector> (cut ##sys#structure? <> 'u8vector) <number-vector>)
-  (defprim <u16vector> (cut ##sys#structure? <> 'u8vector) <number-vector>)
-  (defprim <s16vector> (cut ##sys#structure? <> 'u8vector) <number-vector>)
-  (defprim <u32vector> (cut ##sys#structure? <> 'u8vector) <number-vector>)
-  (defprim <s32vector> (cut ##sys#structure? <> 'u8vector) <number-vector>)
-  (defprim <f32vector> (cut ##sys#structure? <> 'u8vector) <number-vector>)
-  (defprim <f64vector> (cut ##sys#structure? <> 'u8vector) <number-vector>)
+  (defprim <s8vector> (cut ##sys#structure? <> 's8vector) <number-vector>)
+  (defprim <u16vector> (cut ##sys#structure? <> 'u16vector) <number-vector>)
+  (defprim <s16vector> (cut ##sys#structure? <> 's16vector) <number-vector>)
+  (defprim <u32vector> (cut ##sys#structure? <> 'u32vector) <number-vector>)
+  (defprim <s32vector> (cut ##sys#structure? <> 's32vector) <number-vector>)
+  (defprim <f32vector> (cut ##sys#structure? <> 'f32vector) <number-vector>)
+  (defprim <f64vector> (cut ##sys#structure? <> 'f64vector) <number-vector>)
  (defprim <string> string? <sequence>)
  (defprim <char-set> (cut ##sys#structure? <> 'char-set) <sequence> <record>)
  (defprim <symbol> symbol?)