branch: externals/parser-generator commit 0465b581583372396fe67f43cc0b3e7d7769b66f Author: Christian Johansson <christ...@cvj.se> Commit: Christian Johansson <christ...@cvj.se>
Improved commenting --- parser.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/parser.el b/parser.el index c9fbb2d..3b117b4 100644 --- a/parser.el +++ b/parser.el @@ -565,9 +565,9 @@ (setq first-list (sort first-list 'parser--sort-list)) first-list)))) -;; Definition p. 343, FOLLOW(β) = w, w is the set {w | S =>* αβγ and w is in FIRST(γ)} +;; Definition p. 343 (defun parser--follow (β) - "Calculate follow-set of Β." + "Calculate follow-set of Β. FOLLOW(β) = w, w is the set {w | S =>* αβγ and w is in FIRST(γ)}." ;; Make sure argument is a list (unless (listp β) (setq β (list β)))