curioustorvald/tsvm
1
0
Fork 0
mirror of https://github.com/curioustorvald/tsvm.git synced 2026-03-10 13:11:50 +09:00
Code Issues Packages Projects Releases Wiki Activity

basic: string array is a thing now

Browse Source
This commit is contained in:
minjaesong
2020-12-27 20:47:31 +09:00
parent 74cde2f5b1
commit e37a382fe2
2 changed files with 5 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
assets/disk0/tbas/basic.js
View File

@@ -719,8 +719,8 @@ if no arg text were given (e.g. "10 NEXT"), args will have zero length
}},
"!" : {f:function(lnum, stmtnum, args) { // Haskell-style CONS
return twoArg(lnum, stmtnum, args, (lh,rh) => {
if (isNaN(lh))
throw lang.illegalType(lnum, lh); // BASIC array is numbers only
if (Array.isArray(lh))
throw lang.illegalType(lnum, lh); // NO ragged array!
if (!Array.isArray(rh))
throw lang.illegalType(lnum, rh);
return [lh].concat(rh);
@@ -728,10 +728,10 @@ if no arg text were given (e.g. "10 NEXT"), args will have zero length
}},
"~" : {f:function(lnum, stmtnum, args) { // array PUSH
return twoArg(lnum, stmtnum, args, (lh,rh) => {
if (isNaN(rh))
throw lang.illegalType(lnum, rh); // BASIC array is numbers only
if (!Array.isArray(lh))
throw lang.illegalType(lnum, lh);
if (Array.isArray(rh))
throw lang.illegalType(lnum, rh); // NO ragged array!
return lh.concat([rh]);
});
}},