From 384f802c9957d939cce636bc40891610b45caefc Mon Sep 17 00:00:00 2001
From: Koichi Nakamura <koichi@idein.jp>
Date: Thu, 31 Dec 2020 14:44:39 +0900
Subject: [PATCH] Rename 'w' to 'W'

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

diff --git a/core.fs b/core.fs
index 58d9e0b..3c13627 100644
--- a/core.fs
+++ b/core.fs
@@ -249,7 +249,7 @@ l!
 \ Return 1 if c==' ' or c=='\n', 0 otherwise.
 cs i, '#, 'L, k , '=, '~, 'L, k:k0-, '=, '|, 'e, l!
 
-\ 'w' ( "<spaces>name" -- c-addr u )
+\ 'W' ( "<spaces>name" -- c-addr u )
 \ Skip leading spaces (' ' and '\n'),
 \ Read name, then return its address and length.
 \ The maximum length of the name is 31. The behavior is undefined
@@ -260,7 +260,7 @@ cs i, '#, 'L, k , '=, '~, 'L, k:k0-, '=, '|, 'e, l!
 \ Allocate buffer of 31bytes or more,
 \ push the address for compilation of 'w'
 h@ # kOk0-+ h! A
-cw~
+cW~
 i,
     \ skip leading spaces
     'k, '#, 's, 'J, k4k0-C*, '_, 'j, k0k7-C*,