move comment words \ and ( to myforth.S for earlier commenting

This commit is contained in:
Jesse D. McDonald 2020-09-21 15:26:07 -05:00
parent 35c42fa895
commit 09afabc21c
2 changed files with 6 additions and 3 deletions

View File

@ -1179,6 +1179,12 @@ defword COMPILE
.int EXECUTE,EXIT
2: .int COMMA,EXIT
defword SLASH,"\\",F_IMMED
0: .int KEY,LIT,10,EQU,ZBRANCH,(0b - .),EXIT
defword PAREN,"(",F_IMMED
0: .int KEY,LIT,')',EQU,ZBRANCH,(0b - .),EXIT
defword QUIT
.int R0,RSPSTORE
0: .int STATE,FETCH,ZBRANCH,(1f - .)

View File

@ -24,9 +24,6 @@
: BEGIN HERE ; IMMEDIATE
: AGAIN ['] BRANCH , HERE - , ; IMMEDIATE
: \ BEGIN KEY 10 = IF EXIT THEN AGAIN ; IMMEDIATE
: ( BEGIN KEY [ CHAR ) ] LITERAL = IF EXIT THEN AGAIN ; IMMEDIATE
CREATE VAR 123 , DOES> @ ;
: VAR! [ ' VAR >BODY ] LITERAL ! ;