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
Some checks failed
Test, Build, and Deploy / test-build-deploy (push) Has been cancelled
This commit is contained in:
@@ -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
|
||||
|
||||
Reference in New Issue
Block a user