From d1cfab766789c5bee632985734afba1922828aa6 Mon Sep 17 00:00:00 2001
From: Koichi Nakamura <koichi@idein.jp>
Date: Thu, 31 Dec 2020 23:34:56 +0900
Subject: [PATCH] Add "immediate"

---
 core.fs | 11 +++++++++++
 1 file changed, 11 insertions(+)

diff --git a/core.fs b/core.fs
index 08d612d..ae6dcc1 100644
--- a/core.fs
+++ b/core.fs
@@ -382,4 +382,15 @@ c ; i ,
 \ Set immediate-bit of ';'
 l @ C + # { ? k @ k @ + | } $
 
+: immediate-bit [ ' L , k @ k @ + , ] ;
+: length-mask   [ ' L , k O k 0 + , ] ;
+
+\ ( "name" -- )
+: set-immediate
+    W F C + # { ? immediate-bit | } $
+;
+
+\ Set immediate-bit of single-line comment word \
+\ so that we can write comments in compile-mode.
+set-immediate \
 Q