word . 9 define
word .S 38 define
word @ 10 define
+word @8_u 53 define
word @+ 42 define
word ! 11 define
word !+ 43 define
' drop , ' lit , ' lit , ' , , ' execute-num , ' , , ' ; ,
\ change interpreter semantics to "memorize-word"
-: memorizing ' lit , ' mode , ' lit , ' memorize-word , ' ! , ' ; ,
+::> MEMORIZING ' lit , ' mode , ' lit , ' memorize-word , ' ! , ' ; ,
\ memorize the compiler
\memorizing
\ Multi-line comments
::> ( key 41 =? swap -1 =? swap drop + if ;; then JMP: \' ( \, ;
-\ Set the number conversion base
-: BASE 14348 swap ! ;
-: BASE10 10 base ;
-
(
End of bootstrap process
beyond this point, all hope is lost
)
+\ Set the number conversion base
+: BASE 14348 swap ! ;
+: BASE10 10 base ;
+
+\ TICK compilation semantics
+:> ' lit lit , word find , ;
+\ "TICK DOES" (get compilation semantics execution token)
+: '> word find-does ;
+:> '> word find-does , ;
+
+\ Include a remote file
+: REQUIRE" ' quit channel-open dup \' " \, fetch channel-await ;
+
+\ Let's try it
+REQUIRE" { \"url\": \"forth/test-watfor.forth\" }"
+
\ Print intro string
" watForth-32 Interactive CLI:
" .s