[SLOF] [PATCH] slof/engine.in: remove the "COMPILE" keyword

[Kautuk Consul]

"COMPILE" isn't being used anywhere in the Forth code as it is
currently only being used for "+COMP" and "-COMP" keywords.
Remove this keyword definition and use the standard "DOTICK <word> COMPILE,"
mechanism as is being used by the rest of the compiler.

Signed-off-by: Kautuk Consul <kconsul at linux.vnet.ibm.com>
---
 slof/engine.in | 6 ++----
 1 file changed, 2 insertions(+), 4 deletions(-)

diff --git a/slof/engine.in b/slof/engine.in
index 59e82f1..cd287d6 100644
--- a/slof/engine.in
+++ b/slof/engine.in
@@ -419,11 +419,9 @@ imm(Z" S" 2DUP + 0 SWAP C! DROP)
 imm(." STATE @ 0BRANCH(5) S" DOTICK TYPE COMPILE, EXIT  LIT('"') PARSE TYPE)
 imm(.( LIT(')') PARSE TYPE)
 
-col(COMPILE R> CELL+ DUP @ COMPILE, >R)
-
 var(THERE 0)
-col(+COMP STATE @ 1 STATE +! 0BRANCH(1) EXIT HERE THERE ! COMP-BUFFER DOTO HERE COMPILE DOCOL)
-col(-COMP -1 STATE +! STATE @ 0BRANCH(1) EXIT COMPILE EXIT THERE @ DOTO HERE COMP-BUFFER EXECUTE)
+col(+COMP STATE @ 1 STATE +! 0BRANCH(1) EXIT HERE THERE ! COMP-BUFFER DOTO HERE DOTICK DOCOL COMPILE,)
+col(-COMP -1 STATE +! STATE @ 0BRANCH(1) EXIT DOTICK EXIT COMPILE, THERE @ DOTO HERE COMP-BUFFER EXECUTE)
 
 // Structure words.
 col(RESOLVE-ORIG HERE OVER CELL+ - SWAP !)
-- 
2.31.1