From 6e6b6841ec509549dcb5ed621342cbf21ae1ec94 Mon Sep 17 00:00:00 2001
From: Clyne Sullivan <clyne@bitgloo.com>
Date: Fri, 24 Nov 2023 17:25:32 -0500
Subject: documentation and a little cleanup

---
 source/parse.cpp | 5 +++++
 1 file changed, 5 insertions(+)

(limited to 'source/parse.cpp')

diff --git a/source/parse.cpp b/source/parse.cpp
index 012d708..74f7e6a 100644
--- a/source/parse.cpp
+++ b/source/parse.cpp
@@ -45,22 +45,27 @@ void parseSource()
     auto start = (char *)DICT[DIdxSource];
     auto end = start;
 
+    // Try to build words while we have input available.
     while (haskey()) {
         end = (char *)++DICT[DIdxSource];
         --DICT[DIdxSrcLen];
 
         if (isspace(*end)) {
+            // May have collected a word.
+            // parseword() will check if start != end.
             parseword(start, end);
             start = (char *)(DICT[DIdxSource] + 1);
         }
     }
 
+    // Parse the final word if it is non-empty.
     if (start != end)
         parseword(start, end);
 }
 
 void parse()
 {
+    // Reset source buffer and try to fill it with getinput().
     DICT[DIdxSource] = (Cell)&DICT[DIdxBegin];
     DICT[DIdxSrcLen] = 0;
     getinput();
-- 
cgit v1.2.3