Adding a few index entries

original commit: d4417fab46242dc980a26585be51d4a1de6b959f

collects/algol60/cfg-parser.rkt

@@ -627,7 +627,7 @@
 								  l))))
 						  pats (caddr old-list))))
 				     nt-ids patss)
-				    ;; Build a definiton for each non-term:
+				    ;; Build a definition for each non-term:
 				    (loop (cdr clauses)
 					  cfg-start
 					  (map (lambda (nt pats handles $ctxs)

collects/parser-tools/lex.rkt

@@ -252,7 +252,7 @@
                                       ;; including a match at the current state
                                       (longest-match-action 
                                        (vector-ref actions start-state))
-                                      ;; how many bytes preceed char
+                                      ;; how many bytes precede char
                                       (length-bytes 0)
                                       ;; how many characters have been read
                                       ;; including the one just read

collects/parser-tools/parser-tools.scrbl

@@ -22,6 +22,10 @@ style lexer and parser generators.
 
 @section{Lexers}
 
+@section-index["lex"]
+@section-index["scanning"]
+@section-index["scanner"]
+
 @defmodule[parser-tools/lex]
 
 @; ----------------------------------------
@@ -484,6 +488,8 @@ the right choice when using @scheme[lexer] in other situations.
 
 @section{Parsers}
 
+@section-index["yacc"]
+
 @defmodule[parser-tools/yacc]
 
 @defform/subs[#:literals (grammar tokens start end precs src-pos

collects/parser-tools/private-yacc/grammar.rkt

@@ -12,7 +12,7 @@
   (define-struct prod (lhs rhs index prec action) (make-inspector))
 
   ;; The dot-pos field is the index of the element in the rhs
-  ;; of prod that the dot immediately preceeds.
+  ;; of prod that the dot immediately precedes.
   ;; Thus 0 <= dot-pos <= (vector-length rhs).
   (define-struct item (prod dot-pos) (make-inspector))