From db86f87671ad16e31b9837c0a76501c822781e7e Mon Sep 17 00:00:00 2001
From: Koichi Nakamura <koichi@idein.jp>
Date: Mon, 11 Jan 2021 02:06:24 +0900
Subject: [PATCH] Add chars char+ char-

---
 bootstrap.fs | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/bootstrap.fs b/bootstrap.fs
index efe108e..75fd4f2 100644
--- a/bootstrap.fs
+++ b/bootstrap.fs
@@ -578,6 +578,9 @@ allot-cell : &find! [ ' L , , ] ; \ ( c-addr -- nt ) Throw exception at error
 : cell+ cell + ;
 : cell- cell - ;
 : cells cell * ;
+: char+ 1 + ;
+: char- 1 - ;
+: chars ;
 
 \ === Stack Manipulation ===
 
@@ -2458,7 +2461,7 @@ need-defined (read)
         rp0 rp@ rp! r> >r r@ rdrop rpick rdepth
 
         allocate allot memcpy strlen streq strcpy strcpy,
-        cell cell+ cell- cells align aligned +! -!
+        cell cell+ cell- cells char+ char- chars align aligned +! -!
 
         if else then unless begin until again while repeat
         recurse case of rangeof endof endcase