Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

Fix parameter pattern of vector-like constructors to allow 1 parameter

  • Loading branch information...
commit 04f241be6efe7254460cf27ca20acc1c1561ba30 1 parent 64e4bc2
@feeley authored
Showing with 26 additions and 24 deletions.
  1. +24 −22 gsc/_prims.scm
  2. +2 −2 include/stamp.h
View
46 gsc/_prims.scm
@@ -360,7 +360,7 @@
("s8vector?" (1) #f 0 0 boolean gambit)
("s8vector" 0 #f 0 0 #f gambit)
-("make-s8vector" (2) #f 0 0 #f gambit)
+("make-s8vector" (1 2) #f 0 0 #f gambit)
("s8vector-length" (1) #f 0 0 integer gambit)
("s8vector-ref" (2) #f 0 0 integer gambit)
("s8vector-set!" (3) #t 0 0 #f gambit)
@@ -369,7 +369,7 @@
("u8vector?" (1) #f 0 0 boolean gambit)
("u8vector" 0 #f 0 0 #f gambit)
-("make-u8vector" (2) #f 0 0 #f gambit)
+("make-u8vector" (1 2) #f 0 0 #f gambit)
("u8vector-length" (1) #f 0 0 integer gambit)
("u8vector-ref" (2) #f 0 0 integer gambit)
("u8vector-set!" (3) #t 0 0 #f gambit)
@@ -378,7 +378,7 @@
("s16vector?" (1) #f 0 0 boolean gambit)
("s16vector" 0 #f 0 0 #f gambit)
-("make-s16vector" (2) #f 0 0 #f gambit)
+("make-s16vector" (1 2) #f 0 0 #f gambit)
("s16vector-length" (1) #f 0 0 integer gambit)
("s16vector-ref" (2) #f 0 0 integer gambit)
("s16vector-set!" (3) #t 0 0 #f gambit)
@@ -387,7 +387,7 @@
("u16vector?" (1) #f 0 0 boolean gambit)
("u16vector" 0 #f 0 0 #f gambit)
-("make-u16vector" (2) #f 0 0 #f gambit)
+("make-u16vector" (1 2) #f 0 0 #f gambit)
("u16vector-length" (1) #f 0 0 integer gambit)
("u16vector-ref" (2) #f 0 0 integer gambit)
("u16vector-set!" (3) #t 0 0 #f gambit)
@@ -396,7 +396,7 @@
("s32vector?" (1) #f 0 0 boolean gambit)
("s32vector" 0 #f 0 0 #f gambit)
-("make-s32vector" (2) #f 0 0 #f gambit)
+("make-s32vector" (1 2) #f 0 0 #f gambit)
("s32vector-length" (1) #f 0 0 integer gambit)
("s32vector-ref" (2) #f 0 0 integer gambit)
("s32vector-set!" (3) #t 0 0 #f gambit)
@@ -405,7 +405,7 @@
("u32vector?" (1) #f 0 0 boolean gambit)
("u32vector" 0 #f 0 0 #f gambit)
-("make-u32vector" (2) #f 0 0 #f gambit)
+("make-u32vector" (1 2) #f 0 0 #f gambit)
("u32vector-length" (1) #f 0 0 integer gambit)
("u32vector-ref" (2) #f 0 0 integer gambit)
("u32vector-set!" (3) #t 0 0 #f gambit)
@@ -414,7 +414,7 @@
("s64vector?" (1) #f 0 0 boolean gambit)
("s64vector" 0 #f 0 0 #f gambit)
-("make-s64vector" (2) #f 0 0 #f gambit)
+("make-s64vector" (1 2) #f 0 0 #f gambit)
("s64vector-length" (1) #f 0 0 integer gambit)
("s64vector-ref" (2) #f 0 0 integer gambit)
("s64vector-set!" (3) #t 0 0 #f gambit)
@@ -423,7 +423,7 @@
("u64vector?" (1) #f 0 0 boolean gambit)
("u64vector" 0 #f 0 0 #f gambit)
-("make-u64vector" (2) #f 0 0 #f gambit)
+("make-u64vector" (1 2) #f 0 0 #f gambit)
("u64vector-length" (1) #f 0 0 integer gambit)
("u64vector-ref" (2) #f 0 0 integer gambit)
("u64vector-set!" (3) #t 0 0 #f gambit)
@@ -432,7 +432,7 @@
("f32vector?" (1) #f 0 0 boolean gambit)
("f32vector" 0 #f 0 0 #f gambit)
-("make-f32vector" (2) #f 0 0 #f gambit)
+("make-f32vector" (1 2) #f 0 0 #f gambit)
("f32vector-length" (1) #f 0 0 integer gambit)
("f32vector-ref" (2) #f 0 0 real gambit)
("f32vector-set!" (3) #t 0 0 #f gambit)
@@ -441,7 +441,7 @@
("f64vector?" (1) #f 0 0 boolean gambit)
("f64vector" 0 #f 0 0 #f gambit)
-("make-f64vector" (2) #f 0 0 #f gambit)
+("make-f64vector" (1 2) #f 0 0 #f gambit)
("f64vector-length" (1) #f 0 0 integer gambit)
("f64vector-ref" (2) #f 0 0 real gambit)
("f64vector-set!" (3) #t 0 0 #f gambit)
@@ -799,84 +799,84 @@
("##values" 0 #f () 0 (#f) extended)
("##vector" 0 #f () 0 vector extended)
-("##make-vector" (2) #f () 0 vector extended)
+("##make-vector" (1 2) #f () 0 vector extended)
("##vector-length" (1) #f () 0 fixnum extended)
("##vector-ref" (2) #f () 0 (#f) extended)
("##vector-set!" (3) #t () 0 vector extended)
("##vector-shrink!" (2) #t () 0 vector extended)
("##string" 0 #f () 0 string extended)
-("##make-string" (2) #f () 0 string extended)
+("##make-string" (1 2) #f () 0 string extended)
("##string-length" (1) #f () 0 fixnum extended)
("##string-ref" (2) #f () 0 char extended)
("##string-set!" (3) #t () 0 string extended)
("##string-shrink!" (2) #t () 0 string extended)
("##s8vector" 0 #f () 0 #f extended)
-("##make-s8vector" (2) #f () 0 #f extended)
+("##make-s8vector" (1 2) #f () 0 #f extended)
("##s8vector-length" (1) #f () 0 fixnum extended)
("##s8vector-ref" (2) #f () 0 fixnum extended)
("##s8vector-set!" (3) #t () 0 #f extended)
("##s8vector-shrink!" (2) #t () 0 #f extended)
("##u8vector" 0 #f () 0 #f extended)
-("##make-u8vector" (2) #f () 0 #f extended)
+("##make-u8vector" (1 2) #f () 0 #f extended)
("##u8vector-length" (1) #f () 0 fixnum extended)
("##u8vector-ref" (2) #f () 0 fixnum extended)
("##u8vector-set!" (3) #t () 0 #f extended)
("##u8vector-shrink!" (2) #t () 0 #f extended)
("##s16vector" 0 #f () 0 #f extended)
-("##make-s16vector" (2) #f () 0 #f extended)
+("##make-s16vector" (1 2) #f () 0 #f extended)
("##s16vector-length" (1) #f () 0 fixnum extended)
("##s16vector-ref" (2) #f () 0 fixnum extended)
("##s16vector-set!" (3) #t () 0 #f extended)
("##s16vector-shrink!" (2) #t () 0 #f extended)
("##u16vector" 0 #f () 0 #f extended)
-("##make-u16vector" (2) #f () 0 #f extended)
+("##make-u16vector" (1 2) #f () 0 #f extended)
("##u16vector-length" (1) #f () 0 fixnum extended)
("##u16vector-ref" (2) #f () 0 fixnum extended)
("##u16vector-set!" (3) #t () 0 #f extended)
("##u16vector-shrink!" (2) #t () 0 #f extended)
("##s32vector" 0 #f () 0 #f extended)
-("##make-s32vector" (2) #f () 0 #f extended)
+("##make-s32vector" (1 2) #f () 0 #f extended)
("##s32vector-length" (1) #f () 0 fixnum extended)
("##s32vector-ref" (2) #f () 0 fixnum extended)
("##s32vector-set!" (3) #t () 0 #f extended)
("##s32vector-shrink!" (2) #t () 0 #f extended)
("##u32vector" 0 #f () 0 #f extended)
-("##make-u32vector" (2) #f () 0 #f extended)
+("##make-u32vector" (1 2) #f () 0 #f extended)
("##u32vector-length" (1) #f () 0 fixnum extended)
("##u32vector-ref" (2) #f () 0 fixnum extended)
("##u32vector-set!" (3) #t () 0 #f extended)
("##u32vector-shrink!" (2) #t () 0 #f extended)
("##s64vector" 0 #f () 0 #f extended)
-("##make-s64vector" (2) #f () 0 #f extended)
+("##make-s64vector" (1 2) #f () 0 #f extended)
("##s64vector-length" (1) #f () 0 fixnum extended)
("##s64vector-ref" (2) #f () 0 fixnum extended)
("##s64vector-set!" (3) #t () 0 #f extended)
("##s64vector-shrink!" (2) #t () 0 #f extended)
("##u64vector" 0 #f () 0 #f extended)
-("##make-u64vector" (2) #f () 0 #f extended)
+("##make-u64vector" (1 2) #f () 0 #f extended)
("##u64vector-length" (1) #f () 0 fixnum extended)
("##u64vector-ref" (2) #f () 0 fixnum extended)
("##u64vector-set!" (3) #t () 0 #f extended)
("##u64vector-shrink!" (2) #t () 0 #f extended)
("##f32vector" 0 #f () 0 #f extended)
-("##make-f32vector" (2) #f () 0 #f extended)
+("##make-f32vector" (1 2) #f () 0 #f extended)
("##f32vector-length" (1) #f () 0 fixnum extended)
("##f32vector-ref" (2) #f () 0 real extended)
("##f32vector-set!" (3) #t () 0 #f extended)
("##f32vector-shrink!" (2) #t () 0 #f extended)
("##f64vector" 0 #f () 0 #f extended)
-("##make-f64vector" (2) #f () 0 #f extended)
+("##make-f64vector" (1 2) #f () 0 #f extended)
("##f64vector-length" (1) #f () 0 fixnum extended)
("##f64vector-ref" (2) #f () 0 real extended)
("##f64vector-set!" (3) #t () 0 #f extended)
@@ -901,8 +901,10 @@
("##type-fields" (1) #f () 0 #f extended)
("##symbol->string" (1) #f () 0 string extended)
+("##string->symbol" (1) #f () 0 symbol extended)
("##keyword->string" (1) #f () 0 string extended)
+("##string->keyword" (1) #f () 0 keyword extended)
("##closure-length" (1) #f () 0 fixnum extended)
("##closure-code" (1) #f () 0 #f extended)
View
4 include/stamp.h
@@ -2,5 +2,5 @@
* Time stamp of last source code repository commit.
*/
-#define ___STAMP_YMD 20140220
-#define ___STAMP_HMS 212223
+#define ___STAMP_YMD 20140221
+#define ___STAMP_HMS 171339
Please sign in to comment.
Something went wrong with that request. Please try again.