Handle prelude loading message in JS rather than Forth

2026-03-20 12:53:33 +00:00
parent 36429bf8bc
commit 2c13ad4e1f
4 changed files with 52 additions and 46 deletions
--- a/wipforth.ws
+++ b/wipforth.ws
@@ -635,6 +635,15 @@
    end
    call next

+.func wait
+.elem codewords wait WAIT_CODEWORD
+	call pop
+	i32.const 0
+	i64.const -1
+	memory.atomic.wait32 2 0
+	call push
+	call next
+
 ;; Core utility words

 .func exit
@@ -1226,6 +1235,15 @@ COPY:
 	.word COPY_CODEWORD
 .def PREV _COPY

+_WAIT:
+	.word PREV
+	.byte 4
+	.utf8 "WAIT"
+	.align
+WAIT:
+	.word WAIT_CODEWORD
+.def PREV _WAIT
+
 _EXIT:
 	.word PREV
 	.byte 4