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

Make improvements

Browse source
This commit is contained in:
Justine Tunney 2021-12-09 07:49:33 -08:00
parent d21e0ab712
commit 10bc29bcf0
1 changed files with 10 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

16
lisp.js
View file

@ -392,9 +392,13 @@ function Dump(a) {
function OnReset() {
output = "";
Dump(a);
eOutput.innerText = output;
Reset();
try {
Dump(a);
eOutput.innerText = output;
Reset();
} catch (e) {
/* ignored */
}
localStorage.removeItem("sectorlisp.machine");
SaveOutput();
ReportUsage();
@ -452,9 +456,6 @@ function ReportUsage() {
}
function SetUp() {
Reset();
RestoreMachine();
ReportUsage();
eLoad = document.getElementById("load");
eInput = document.getElementById("input");
eReset = document.getElementById("reset");
@ -465,6 +466,9 @@ function SetUp() {
eSubmit.onclick = OnSubmit;
eReset.onclick = OnReset;
eLoad.onclick = OnLoad;
Reset();
RestoreMachine();
ReportUsage();
}
SetUp();