sjs/sectorlisp
1
0
Fork 0
mirror of https://github.com/samsonjs/sectorlisp.git synced 2026-03-25 09:05:48 +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;
setlocale(LC_ALL, "");
bestlineSetXlatCallback(bestlineUppercase);
if (argc > 1 && argv[1][0] == '-' && argv[1][1] == 't') {
funcall = Funtrace;
} else {
funcall = Funcall;
funcall = Funcall;
for (x = 1; x < argc; ++x) {
if (argv[x][0] == '-' && argv[x][1] == 't') {
funcall = Funtrace;
} else {
fputs("Usage: ", stderr);
fputs(argv[0], stderr);
fputs(" [-t] <input.lisp >errput.lisp\n", stderr);
exit(1);
}
}
LoadBuiltins();
for (a = 0;;) {