suzanne.soy/whalesong
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

changing makevector so it must take in the elements

Browse Source
This commit is contained in:
Danny Yoo 2012-02-10 14:40:55 -05:00
parent d70db16956
commit 97d8848e01
5 changed files with 14 additions and 21 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
js-assembler/assemble-helpers.rkt
View File

@ -151,8 +151,7 @@
(format "RT.makePath(~s)"
(path->string val))]
[(vector? val)
(format "RT.makeVector(~a,[~a])"
(vector-length val)
(format "RT.makeVector([~a])"
(string-join (for/list ([elt (vector->list val)])
(loop elt))
","))]

6
js-assembler/runtime-src/baselib-primitives.js
View File

@ -707,7 +707,7 @@
for (i = 0; i < M.a; i++) {
result.push(M.e[M.e.length-1-i]);
}
var newVector = makeVector(result.length, result);
var newVector = makeVector(result);
return newVector;
});
@ -727,7 +727,7 @@
for(i = 0; i < length; i++) {
arr[i] = value;
}
return makeVector(arr.length, arr);
return makeVector(arr);
});
installPrimitiveProcedure(
@ -753,7 +753,7 @@
result.push(firstArg.first);
firstArg = firstArg.rest;
}
return makeVector(result.length, result);
return makeVector(result);
});

2
js-assembler/runtime-src/baselib-readergraph.js
View File

@ -22,7 +22,7 @@
if (baselib.vectors.isVector(x)) {
var len = x.length();
var aVector = baselib.vectors.makeVector(len, x.elts);
var aVector = baselib.vectors.makeVector(x.elts.slice(0));
objectHash.put(x, aVector);
for (i = 0; i < len; i++) {
aVector.elts[i] = readerGraph(aVector.elts[i], objectHash, n + 1);

22
js-assembler/runtime-src/baselib-vectors.js
View File

@ -7,20 +7,14 @@
var Vector = function (n, initialElements) {
var Vector = function (initialElements) {
var i;
this.elts = [];
this.elts.length = n;
if (initialElements) {
for (i = 0; i < n; i++) {
this.elts[i] = initialElements[i];
}
}
this.elts = initialElements;
this.mutable = true;
};
Vector.makeInstance = function (n, elts) {
return new Vector(n, elts);
Vector.makeInstance = function (elts) {
return new Vector(elts);
};
Vector.prototype.length = function () {
@ -115,12 +109,12 @@
var isVector = function (x) { return x instanceof Vector; };
// makeVector: x ... -> vector
var makeVector = function (n, elts) {
return Vector.makeInstance(n, elts);
var makeVector = function (elts) {
return Vector.makeInstance(elts);
};
var makeVectorImmutable = function (n, elts) {
var v = Vector.makeInstance(n, elts);
var makeVectorImmutable = function (elts) {
var v = Vector.makeInstance(elts);
v.mutable = false;
return v;
};

2
version.rkt
View File

@ -7,4 +7,4 @@
(provide version)
(: version String)
(define version "1.114")
(define version "1.116")