[openfirmware] [commit] r2823 - forth/lib

[repository service]

Author: wmb
Date: Mon Jan 16 22:04:57 2012
New Revision: 2823
URL: http://tracker.coreboot.org/trac/openfirmware/changeset/2823

Log:
lex.fth - added commentary

Modified:
   forth/lib/lex.fth

Modified: forth/lib/lex.fth
==============================================================================
--- forth/lib/lex.fth	Mon Jan 16 22:04:54 2012	(r2822)
+++ forth/lib/lex.fth	Mon Jan 16 22:04:57 2012	(r2823)
@@ -4,6 +4,8 @@
 \ text$ means ( text-adr text-len )
 0 value delim

+\ lex scans text$ for each character in delim$
+\ when one is found, lex splits text$ at that delimiter and leaves
 : lex   ( text$ delim$ -- rem$ head$ delim true | text$ false )
    0 is delim
    2over bounds ?do				( text$ delim$ )