From d42fb25bb312242127bf70049cfa8fad9f44c2ab Mon Sep 17 00:00:00 2001
From: Koichi Nakamura <koichi@idein.jp>
Date: Thu, 31 Dec 2020 17:46:11 +0900
Subject: [PATCH] Replace "state" with "M"

---
 core.fs | 16 ++++------------
 1 file changed, 4 insertions(+), 12 deletions(-)

diff --git a/core.fs b/core.fs
index 0709d31..85cba24 100644
--- a/core.fs
+++ b/core.fs
@@ -305,19 +305,11 @@ cG i,
     'a,             \ align
 'e, l!
 
-\ `state` variable (**The 1st multi-char word**)
+\ 'M' ( -- c-addr)
+\ The state variable
 \ 0: immediate mode
 \ 1: compile mode
-h@          \ save address of cell
-k0k0-,      \ allocate 1 cell and fill 0
-h@          \ save address of word
-W state     \ ( cell word name u )
-l@,         \ fill link
-#B          \ fill length ( cell word name u )
-#{          \ preserve u
-h@~m        \ fill name ( cell word )
-h@ } + h!   \ restore u, increment here
-A           \ align here
-i, 'L, ~, 'e, l!
+h@ k0k0-,   \ allocate 1 cell and fill 0
+cM~ i, 'L, , 'e, l!
 
 Q