branch: externals/parser-generator commit 3ba52501204348b0fafabaee6cb7f640b1d5d7c0 Author: Christian Johansson <christ...@cvj.se> Commit: Christian Johansson <christ...@cvj.se>
Removed debugging stuff --- parser.el | 9 ++------- 1 file changed, 2 insertions(+), 7 deletions(-) diff --git a/parser.el b/parser.el index 7c8e570..c629be9 100644 --- a/parser.el +++ b/parser.el @@ -709,12 +709,8 @@ (let ((popped-item) (lr-item-set-index) (lr-items) - (goto-table-table) - (iteration 1) - (max-iterations 100)) - (while (and - unmarked-lr-item-sets - (< iteration max-iterations)) + (goto-table-table)) + (while unmarked-lr-item-sets (setq popped-item (pop unmarked-lr-item-sets)) (setq lr-item-set-index (car popped-item)) @@ -763,7 +759,6 @@ (push `(,lr-item-set-new-index ,prefix-lr-items) unmarked-lr-item-sets) (setq lr-item-set-new-index (1+ lr-item-set-new-index))))))) - (setq iteration (1+ iteration)) (setq goto-table-table (sort goto-table-table 'parser--sort-list)) (push `(,lr-item-set-index ,goto-table-table) goto-table))) (setq parser--goto-table (sort goto-table 'parser--sort-list))))