sjs/sectorlisp
1
0
Fork 0
mirror of https://github.com/samsonjs/sectorlisp.git synced 2026-04-27 14:57:41 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

Add -t flag

Browse source
This commit is contained in:
Justine Tunney 2021-12-14 09:08:27 -08:00
parent 0916d58550
commit c9ce1c54a0
1 changed files with 10 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

14
lisp.js
View file

@ -327,10 +327,16 @@ main(argc, argv)
var x, a, A; var x, a, A;
setlocale(LC_ALL, ""); setlocale(LC_ALL, "");
bestlineSetXlatCallback(bestlineUppercase); bestlineSetXlatCallback(bestlineUppercase);
if (argc > 1 && argv[1][0] == '-' && argv[1][1] == 't') { funcall = Funcall;
funcall = Funtrace; for (x = 1; x < argc; ++x) {
} else { if (argv[x][0] == '-' && argv[x][1] == 't') {
funcall = Funcall; funcall = Funtrace;
} else {
fputs("Usage: ", stderr);
fputs(argv[0], stderr);
fputs(" [-t] <input.lisp >errput.lisp\n", stderr);
exit(1);
}
} }
LoadBuiltins(); LoadBuiltins();
for (a = 0;;) { for (a = 0;;) {