From 09afabc21cc9a3f0de9b23d506c989e7bfbe71fa Mon Sep 17 00:00:00 2001
From: Jesse McDonald <nybble41@gmail.com>
Date: Mon, 21 Sep 2020 15:26:07 -0500
Subject: [PATCH] move comment words \ and ( to myforth.S for earlier
 commenting

---
 jumpforth.S | 6 ++++++
 startup.4th | 3 ---
 2 files changed, 6 insertions(+), 3 deletions(-)

diff --git a/jumpforth.S b/jumpforth.S
index 2df5c21..62223fb 100644
--- a/jumpforth.S
+++ b/jumpforth.S
@@ -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 - .)
diff --git a/startup.4th b/startup.4th
index d506034..edc2ad3 100644
--- a/startup.4th
+++ b/startup.4th
@@ -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 ! ;