Does not actually with bare compiler

1 files changed, 0 insertions, 196 deletions

diff --git a/examples/working-compiler/interactive-stack.test b/examples/working-compiler/interactive-stack.test
deleted file mode 100644
index 0365280..0000000
--- a/examples/working-compiler/interactive-stack.test
+++ /dev/null
@@ -1,196 +0,0 @@
-{ scope }' =*globalScope
-
-<
-  map ==seenThings # from .hu of rawAddress to some name
-  map ==usedNames # from name to rawAddress
-
-  { ==suggested ==thing
-    thing sys .asm .rawAddress _ ==a txt .produce .hu ==as
-
-    globalScope keys { ==name
-      globalScope name .| sys .asm .rawAddress _ ==a txt .produce .hu ==as
-
-      "\e[2m" name cat "\e[0m" cat =name
-      name as seenThings =[]
-      a name usedNames =[]
-    } each
-
-    { ==i
-      i 0 eq {
-        i suggested *
-      } {
-        i suggested len math .base suggested * |cat fold
-      } ? *
-    } /toName deffst
-
-    as seenThings .has {
-      as seenThings *
-    } {
-      0 ==i
-      {
-        i toName ==name
-        name usedNames .has
-      }' {
-        { 1 add } |=i
-      }' loop
-
-      name as seenThings =[]
-      a name usedNames =[]
-      name
-    } ? *
-  }
-> -- /niceName deffd
-
-{ [ "α" "β" "γ" "δ" "ε" "π" "φ" ] niceName } /niceScopeName deffd
-
-<
-  [ 0 11 range {
-    sys .asm .intToFloat
-  }' each ] =*:FLOAT
-
-  sys .out .|writeall =*out
-
-  "0123456789" ==:base10digits
-  "0123456789ABCDEF" ==:base16digits
-
-  { _ 0 lt { neg "-" }' { "" }' ? * -01
-    [ -01 16 { _ 16 umod base16digits * -01 16 udiv }' rep -- ] reverse str .fromArray cat
-  }' /base16encode64 deffd
-
-  { "\e[1;31m<???>\e[0m" out }" /unknown defvd
-
-  [
-    { "\e[31m" o txt .produce .i cat "\e[0m" cat out }" # integer
-    { "\e[31m\"" o "\"\e[0m" cat cat out }" # string
-    { "\e[31m" out o { ==f 0 ==e "+" ==s 0 ==i
-      f 0 FLOAT lt { 0 FLOAT f sub =f "-" =s }' rep
-      { f 1 FLOAT lt i 500 lt and }' { f 10 FLOAT mul =f e 1 sub =e i 1 add =i }' loop
-      { f 10 FLOAT ge i 500 lt and }' { f 10 FLOAT div =f e 1 add =e i 1 add =i }' loop
-
-      i 500 eq {
-        s
-        f 1 FLOAT lt "0.0e0" "inf" ?
-        cat out
-      }' {
-        {
-          0 ==d
-          1 10 range { ==i f i FLOAT gt { i =d }' rep } each
-          f d sub =f
-          f 10 FLOAT mul =f
-          d base10digits *
-        } /extractDigit deffst
-
-        [
-          0 s *
-          extractDigit
-          0 "." *
-          10 |extractDigit rep
-          0 "e" *
-          e 0 lt {
-            0 e sub =e
-            0 "-" *
-          } rep
-          e 0 eq {
-            0 "0" *
-          } rep
-          [
-            { e } {
-              e 10 mod base10digits *
-              e 10 div =e
-            } loop
-          ] reverse _ len dearray
-        ] str .fromArray out
-      }' ? *
-    } * "\e[0m" out }" # float
-    unknown
-    unknown # extension area
-    { "\e[32m{"
-      o [ /f /g /h /a /b /c /d /e ] niceName cat
-      "\e[32m}\e[0m" cat out
-    }"
-    unknown
-    { "\e[36m["
-      o [ /A /B /C /D /E /F /G /H ] niceName cat
-      "\e[36m]\e[0m" cat out
-    }" # array
-    unknown # function type
-    { "\e[35m<"
-      o niceScopeName cat
-      "\e[35m>\e[0m" cat out
-    }"
-    unknown # name table
-    unknown # stack
-    { "<coroutine: " o sys .asm .rawAddress base16encode64 cat ">" cat out }"
-    unknown
-    unknown
-    unknown
-    { "[" out }"
-    { "{" out }"
-    { "\e[34m|\e[0m" out }"
-    unknown
-  ] /dumpActions deffd
-
-  # dump top stack element
-  { _ ==o sys .typed .type dumpActions * "  " out }
-
-  # dump entire stack
-  { 0 ==i "" ==x
-    { x sys .typed .type 18 neq } {
-      i _' =x
-      { 1 add } |=i
-    } loop
-
-    { 1 sub } |=i
-
-    { i 0 ge } {
-      i _' =x
-      { 1 sub } |=i
-      x objectdump
-      " " out
-    } loop
-
-    "\n" out
-  }
-> -- /stackdump deffd /objectdump deffd
-
-"Welcome to elymas.\n" sys .out .writeall
-
-{ _ ==openedScope enincludeLine =*eval
-  1 ==running
-  { 0 =running } =*quit
-
-  { running } {
-    "\n" sys .out .writeall
-    "\e[35m" "scope" eval niceScopeName cat "\e[34m:\e[0m" cat sys .out .writeall
-    "scope" eval _ ==curScope keys { ==name
-      name existingGlobals .has not {
-        " " sys .out .writeall name "=" cat sys .out .writeall curScope name .| objectdump
-      } rep
-    } each
-    "\n" sys .out .writeall
-    stackdump
-
-    [ "\e[34m>" sys .out .writeall
-      quoted { "\e[32m{" } rep "\e[0m \e[1m" ] |cat fold sys .out .writeall
-    65536 sys .in .read "\e[0m" sys .out .writeall _ len { ==line
-      line "^(.*)\n$" regex {
-        eval
-      } {
-        "non-terminal input" dump
-      } ? *
-    } { --
-      0 =running
-    } ? *
-  } loop
-} /open deffd
-
-map ==existingGlobals
-globalScope keys { ==name
-  1 name existingGlobals =[]
-} each
-
-scope open
-
-"\n" sys .out .writeall
-
-# vim: syn=elymas