forth: parsing/dictionary '/[']/EXECUTE/LITERAL/POSTPONE/WORD/FIND/>BODY (Hayes 463/638, 72%)
Some checks failed
Test, Build, and Deploy / test-build-deploy (push) Has been cancelled

This commit is contained in:
2026-04-25 00:55:34 +00:00
parent 47f66ad1be
commit 89a879799a
6 changed files with 164 additions and 14 deletions

View File

@@ -208,7 +208,8 @@
(dict-set!
(get state "dict")
(downcase name)
(forth-make-word "primitive" body false))))
(forth-make-word "primitive" body false))
(dict-set! state "last-defined" name)))
(define
forth-def-prim-imm!
@@ -217,7 +218,8 @@
(dict-set!
(get state "dict")
(downcase name)
(forth-make-word "primitive" body true))))
(forth-make-word "primitive" body true))
(dict-set! state "last-defined" name)))
(define
forth-lookup