From eee95f195a05d1c249f036411ff222170e503291 Mon Sep 17 00:00:00 2001 From: David Van Horn Date: Wed, 2 Feb 2011 14:56:42 -0500 Subject: [PATCH 1/2] Fixed various spelling errors. original commit: c9519fd11300b07292df8619e86f48533eff6e4d --- collects/parser-tools/lex.rkt | 2 +- collects/parser-tools/private-yacc/grammar.rkt | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/collects/parser-tools/lex.rkt b/collects/parser-tools/lex.rkt index e9983ab..2db2ecb 100644 --- a/collects/parser-tools/lex.rkt +++ b/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 diff --git a/collects/parser-tools/private-yacc/grammar.rkt b/collects/parser-tools/private-yacc/grammar.rkt index dd71a88..fe20c5a 100644 --- a/collects/parser-tools/private-yacc/grammar.rkt +++ b/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)) From cb1c226c0e76190e3b3040f1007a3c469b031855 Mon Sep 17 00:00:00 2001 From: David Van Horn Date: Fri, 4 Feb 2011 16:46:32 -0500 Subject: [PATCH 2/2] Fixes more spelling errors. original commit: 760a58b65df2b91010d2bcc2739ddab2a4489729 --- collects/algol60/cfg-parser.rkt | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/collects/algol60/cfg-parser.rkt b/collects/algol60/cfg-parser.rkt index 04a2297..b3e2573 100644 --- a/collects/algol60/cfg-parser.rkt +++ b/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)