pkg/ludus.js

@@ -1,7 +1,6 @@
 if (window) window.ludus = {run, kill, flush_stdout, stdout, p5, svg, flush_commands, commands, result, input, is_running}
 
-const worker_url = new URL("worker.js", import.meta.url)
+const worker = new Worker("worker.js", {type: "module"})
-const worker = new Worker(worker_url, {type: "module"})
 
 let outbox = []
 let ludus_console = ""

sandbox.ld

@@ -1,34 +1 @@
-fn inputter () -> {
+:foobar
-  if do input > unbox > empty?
-    then {
-      yield! ()
-      inputter ()
-    }
-    else receive {
-      (:get, pid) -> send (pid, (:reply, unbox (input)))
-      (:flush, pid) -> {
-        send (pid, (:reply, unbox (input)))
-        store! (input, "")
-      }
-      (:clear) -> store! (input, "")
-    }
-  
-}
-
-fn clear_input () -> store! (input, "")
-
-fn read_input () -> {
-  let reader = spawn! (inputter)
-  send (reader, (:get, self ()))
-  receive {
-    (:reply, msg) -> msg
-  }
-}
-
-fn flush_input () -> {
-  let reader = spawn! (inputter)
-  send (reader, (:flush, self ()))
-  receive {
-    (:reply, msg) -> msg
-  }
-}