--- gforth/kernel/accept.fs	2005/12/31 15:46:13	1.16
+++ gforth/kernel/accept.fs	2006/02/19 15:11:23	1.17
@@ -49,6 +49,9 @@ defer everyline
 ' noop IS everyline
 
 : decode ( max span addr pos1 key -- max span addr pos2 flag )
+    \ perform action corresponding to key; addr max is the buffer,
+    \ addr span is the current string in the buffer, and pos1 is the
+    \ cursor position in the buffer.
     everychar
     dup -1 =   IF  drop 4  THEN  \ -1 is EOF
     dup #del = IF  drop #bs  THEN  \ del is rubout