aboutsummaryrefslogtreecommitdiffstats
path: root/source/core.cpp
diff options
context:
space:
mode:
Diffstat (limited to 'source/core.cpp')
-rw-r--r--source/core.cpp11
1 files changed, 5 insertions, 6 deletions
diff --git a/source/core.cpp b/source/core.cpp
index 0b520e8..52dbcbb 100644
--- a/source/core.cpp
+++ b/source/core.cpp
@@ -83,7 +83,7 @@ void align()
HERE = aligned(HERE);
}
-static void word(int ch)
+static void readword(int ch)
{
int k;
do {
@@ -102,7 +102,6 @@ static void word(int ch)
k = key();
} while (k != ch);
- addkey(k);
// Add a null terminator.
ptr = reinterpret_cast<char *>(HERE);
@@ -110,12 +109,12 @@ static void word(int ch)
++HERE;
}
-void wordword()
+void word()
{
auto here = (char *)HERE;
++HERE;
- word(*SP);
+ readword(*SP);
here[0] = strlen(here + 1);
HERE = (Cell)here;
@@ -127,7 +126,7 @@ void colon()
// Collect (and store) the word's name.
align();
auto name = HERE;
- word(' ');
+ readword(' ');
align();
// Build the Word structure.
@@ -171,7 +170,7 @@ void tick()
{
// Get the name to look up.
auto name = (char *)HERE;
- word(' ');
+ readword(' ');
// Look up the name and push the result.
int len = HERE - (Cell)name - 1;