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

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

10
lisp.js
View file

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