diff options
| author | Brian Cully <bjc@spork.org> | 2025-08-25 13:35:12 -0400 |
|---|---|---|
| committer | Brian Cully <bjc@spork.org> | 2025-08-25 13:57:21 -0400 |
| commit | 37c0a0b5e4d3939656cac8d103b5a22963fbc9dd (patch) | |
| tree | 8843628b991ac39991d22f80df9aa1d2a22cffc4 /site/index.html | |
| parent | f2bcc1df6ef43a6021adfcd380fc899ca8e6533a (diff) | |
| download | automathon-37c0a0b5e4d3939656cac8d103b5a22963fbc9dd.tar.gz automathon-37c0a0b5e4d3939656cac8d103b5a22963fbc9dd.zip | |
load forth from server
Diffstat (limited to 'site/index.html')
| -rw-r--r-- | site/index.html | 17 |
1 files changed, 5 insertions, 12 deletions
diff --git a/site/index.html b/site/index.html index 6583568..5939d37 100644 --- a/site/index.html +++ b/site/index.html @@ -10,20 +10,13 @@ <div id='editor'> <div id='code'> + <select id='src-select'> + <option>fac.fs</option> + <option>slo-fac.fs</option> + </select> <button id='compile'>compile</button> <br> - <div id='src' contenteditable='plaintext-only'>: fac ( n -- n ) - dup ( n n ) - 1 > if ( n flag ) - dup ( n n ) - 1 - ( n n-1 ) - fac ( n fac-n ) - * ( n ) - then ( n ) -; - -5 fac -drop</div> + <div id='src' contenteditable='plaintext-only'></div> </div> <div id='state-container'> |