From: akr Date: Wed, 19 Aug 1998 11:25:43 +0000 (+0000) Subject: * ew-parse.el: Use lookahead token. X-Git-Tag: doodle-1_9_2~42 X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=c6d067e1f07f54ed1bde182336d699e8197b238f;p=elisp%2Fflim.git * ew-parse.el: Use lookahead token. * ew-data.el (ew-mark-phrase): Decode last token in phrase. --- diff --git a/ChangeLog b/ChangeLog index 02b539f..e51eed7 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,5 +1,11 @@ 1998-08-19 Tanaka Akira + * ew-parse.el: Use lookahead token. + + * ew-data.el (ew-mark-phrase): Decode last token in phrase. + +1998-08-19 Tanaka Akira + * ew-parse.el: Remove token suffix "-tok". * ew-data.el: Ditto. diff --git a/ew-data.el b/ew-data.el index bccd7e5..436b014 100644 --- a/ew-data.el +++ b/ew-data.el @@ -118,16 +118,13 @@ '(ew:atom))) (setq frag1 (get (get frag1 'prev-frag) 'next-frag))) (while (not (eq frag1 frag2)) + (setq frag2 (get frag2 'prev-frag)) (unless (ew-comment-frag-p frag2) - (put frag2 'decode 'ew-decode-phrase)) - (setq frag2 (get frag2 'prev-frag))) - (unless (ew-comment-frag-p frag2) - (put frag2 'decode 'ew-decode-phrase)) - (setq frag2 (get frag2 'prev-frag)) - (while (not (ew-token-last-frag-p frag2)) + (put frag2 'decode 'ew-decode-phrase))) + (while (not (ew-token-last-frag-p + (setq frag2 (get frag2 'prev-frag)))) (unless (ew-comment-frag-p frag2) - (put frag2 'decode 'ew-decode-phrase)) - (setq frag2 (get frag2 'prev-frag)))) + (put frag2 'decode 'ew-decode-phrase)))) ;;; frag predicate diff --git a/ew-parse.el b/ew-parse.el index 1a776e0..4808417 100644 --- a/ew-parse.el +++ b/ew-parse.el @@ -387,389 +387,389 @@ (defconst ew:reduction-table (vector '() - (lambda (stack sp goto-table $lookahead) + (lambda (stack sp goto-table $look) (let* (($2 (aref stack (- sp 1))) ($1 (aref stack (- sp 3)))) (accept $1))) - (lambda (stack sp goto-table $lookahead) + (lambda (stack sp goto-table $look) (let* (($3 (aref stack (- sp 1))) ($2 (aref stack (- sp 3))) ($1 (aref stack (- sp 5)))) (lr-push stack (- sp 6) 1 goto-table ()))) - (lambda (stack sp goto-table $lookahead) + (lambda (stack sp goto-table $look) (let* (($3 (aref stack (- sp 1))) ($2 (aref stack (- sp 3))) ($1 (aref stack (- sp 5)))) (lr-push stack (- sp 6) 1 goto-table ()))) - (lambda (stack sp goto-table $lookahead) + (lambda (stack sp goto-table $look) (let* (($3 (aref stack (- sp 1))) ($2 (aref stack (- sp 3))) ($1 (aref stack (- sp 5)))) (lr-push stack (- sp 6) 1 goto-table ()))) - (lambda (stack sp goto-table $lookahead) + (lambda (stack sp goto-table $look) (let* (($3 (aref stack (- sp 1))) ($2 (aref stack (- sp 3))) ($1 (aref stack (- sp 5)))) (lr-push stack (- sp 6) 1 goto-table ()))) - (lambda (stack sp goto-table $lookahead) + (lambda (stack sp goto-table $look) (let* (($3 (aref stack (- sp 1))) ($2 (aref stack (- sp 3))) ($1 (aref stack (- sp 5)))) (lr-push stack (- sp 6) 1 goto-table ()))) - (lambda (stack sp goto-table $lookahead) + (lambda (stack sp goto-table $look) (let* (($3 (aref stack (- sp 1))) ($2 (aref stack (- sp 3))) ($1 (aref stack (- sp 5)))) (lr-push stack (- sp 6) 1 goto-table ()))) - (lambda (stack sp goto-table $lookahead) + (lambda (stack sp goto-table $look) (let* (($3 (aref stack (- sp 1))) ($2 (aref stack (- sp 3))) ($1 (aref stack (- sp 5)))) (lr-push stack (- sp 6) 1 goto-table ()))) - (lambda (stack sp goto-table $lookahead) + (lambda (stack sp goto-table $look) (let* () (lr-push stack (- sp 0) 2 goto-table ()))) - (lambda (stack sp goto-table $lookahead) + (lambda (stack sp goto-table $look) (let* (($1 (aref stack (- sp 1)))) (lr-push stack (- sp 2) 2 goto-table ()))) - (lambda (stack sp goto-table $lookahead) + (lambda (stack sp goto-table $look) (let* (($1 (aref stack (- sp 1)))) (lr-push stack (- sp 2) 3 goto-table ()))) - (lambda (stack sp goto-table $lookahead) + (lambda (stack sp goto-table $look) (let* (($3 (aref stack (- sp 1))) ($2 (aref stack (- sp 3))) ($1 (aref stack (- sp 5)))) (lr-push stack (- sp 6) 3 goto-table ()))) - (lambda (stack sp goto-table $lookahead) + (lambda (stack sp goto-table $look) (let* (($1 (aref stack (- sp 1)))) (lr-push stack (- sp 2) 4 goto-table ()))) - (lambda (stack sp goto-table $lookahead) + (lambda (stack sp goto-table $look) (let* (($1 (aref stack (- sp 1)))) (lr-push stack (- sp 2) 4 goto-table ()))) - (lambda (stack sp goto-table $lookahead) + (lambda (stack sp goto-table $look) (let* (($3 (aref stack (- sp 1))) ($2 (aref stack (- sp 3))) ($1 (aref stack (- sp 5)))) (lr-push stack (- sp 6) 5 goto-table ()))) - (lambda (stack sp goto-table $lookahead) + (lambda (stack sp goto-table $look) (let* (($3 (aref stack (- sp 1))) ($2 (aref stack (- sp 3))) ($1 (aref stack (- sp 5)))) (lr-push stack (- sp 6) 6 goto-table ()))) - (lambda (stack sp goto-table $lookahead) + (lambda (stack sp goto-table $look) (let* (($4 (aref stack (- sp 1))) ($3 (aref stack (- sp 3))) ($2 (aref stack (- sp 5))) ($1 (aref stack (- sp 7)))) (lr-push stack (- sp 8) 7 goto-table ()))) - (lambda (stack sp goto-table $lookahead) + (lambda (stack sp goto-table $look) (let* (($2 (aref stack (- sp 1))) ($1 (aref stack (- sp 3)))) (lr-push stack (- sp 4) 7 goto-table ()))) - (lambda (stack sp goto-table $lookahead) + (lambda (stack sp goto-table $look) (let* (($1 (aref stack (- sp 1)))) (lr-push stack (- sp 2) 8 goto-table ()))) - (lambda (stack sp goto-table $lookahead) + (lambda (stack sp goto-table $look) (let* (($3 (aref stack (- sp 1))) ($2 (aref stack (- sp 3))) ($1 (aref stack (- sp 5)))) (lr-push stack (- sp 6) 8 goto-table ()))) - (lambda (stack sp goto-table $lookahead) + (lambda (stack sp goto-table $look) (let* (($1 (aref stack (- sp 1)))) (lr-push stack (- sp 2) 9 goto-table ()))) - (lambda (stack sp goto-table $lookahead) + (lambda (stack sp goto-table $look) (let* (($4 (aref stack (- sp 1))) ($3 (aref stack (- sp 3))) ($2 (aref stack (- sp 5))) ($1 (aref stack (- sp 7)))) (lr-push stack (- sp 8) 10 goto-table ()))) - (lambda (stack sp goto-table $lookahead) + (lambda (stack sp goto-table $look) (let* (($3 (aref stack (- sp 1))) ($2 (aref stack (- sp 3))) ($1 (aref stack (- sp 5)))) (lr-push stack (- sp 6) 11 goto-table ()))) - (lambda (stack sp goto-table $lookahead) + (lambda (stack sp goto-table $look) (let* (($5 (aref stack (- sp 1))) ($4 (aref stack (- sp 3))) ($3 (aref stack (- sp 5))) ($2 (aref stack (- sp 7))) ($1 (aref stack (- sp 9)))) (lr-push stack (- sp 10) 11 goto-table ()))) - (lambda (stack sp goto-table $lookahead) + (lambda (stack sp goto-table $look) (let* (($1 (aref stack (- sp 1)))) (lr-push stack (- sp 2) 12 goto-table ()))) - (lambda (stack sp goto-table $lookahead) + (lambda (stack sp goto-table $look) (let* (($3 (aref stack (- sp 1))) ($2 (aref stack (- sp 3))) ($1 (aref stack (- sp 5)))) (lr-push stack (- sp 6) 12 goto-table ()))) - (lambda (stack sp goto-table $lookahead) + (lambda (stack sp goto-table $look) (let* (($1 (aref stack (- sp 1)))) (lr-push stack (- sp 2) 13 goto-table ()))) - (lambda (stack sp goto-table $lookahead) + (lambda (stack sp goto-table $look) (let* (($2 (aref stack (- sp 1))) ($1 (aref stack (- sp 3)))) (lr-push stack (- sp 4) 13 goto-table ()))) - (lambda (stack sp goto-table $lookahead) + (lambda (stack sp goto-table $look) (let* (($1 (aref stack (- sp 1)))) (lr-push stack (- sp 2) 13 goto-table ()))) - (lambda (stack sp goto-table $lookahead) + (lambda (stack sp goto-table $look) (let* () (lr-push stack (- sp 0) 14 goto-table ()))) - (lambda (stack sp goto-table $lookahead) + (lambda (stack sp goto-table $look) (let* (($1 (aref stack (- sp 1)))) (lr-push stack (- sp 2) 14 goto-table ()))) - (lambda (stack sp goto-table $lookahead) + (lambda (stack sp goto-table $look) (let* (($1 (aref stack (- sp 1)))) (lr-push stack (- sp 2) 15 goto-table ()))) - (lambda (stack sp goto-table $lookahead) + (lambda (stack sp goto-table $look) (let* (($3 (aref stack (- sp 1))) ($2 (aref stack (- sp 3))) ($1 (aref stack (- sp 5)))) (lr-push stack (- sp 6) 15 goto-table ()))) - (lambda (stack sp goto-table $lookahead) + (lambda (stack sp goto-table $look) (let* (($1 (aref stack (- sp 1)))) (lr-push stack (- sp 2) 16 goto-table ()))) - (lambda (stack sp goto-table $lookahead) + (lambda (stack sp goto-table $look) (let* (($3 (aref stack (- sp 1))) ($2 (aref stack (- sp 3))) ($1 (aref stack (- sp 5)))) (lr-push stack (- sp 6) 17 goto-table ()))) - (lambda (stack sp goto-table $lookahead) + (lambda (stack sp goto-table $look) (let* (($1 (aref stack (- sp 1)))) - (lr-push stack (- sp 2) 18 goto-table (ew-mark-phrase (car $1) (cdr $1))))) - (lambda (stack sp goto-table $lookahead) + (lr-push stack (- sp 2) 18 goto-table (ew-mark-phrase $1 $look)))) + (lambda (stack sp goto-table $look) (let* (($1 (aref stack (- sp 1)))) (lr-push stack (- sp 2) 19 goto-table $1))) - (lambda (stack sp goto-table $lookahead) + (lambda (stack sp goto-table $look) (let* (($2 (aref stack (- sp 1))) ($1 (aref stack (- sp 3)))) - (lr-push stack (- sp 4) 19 goto-table (cons (car $1) (cdr $2))))) - (lambda (stack sp goto-table $lookahead) + (lr-push stack (- sp 4) 19 goto-table $1))) + (lambda (stack sp goto-table $look) (let* (($2 (aref stack (- sp 1))) ($1 (aref stack (- sp 3)))) (lr-push stack (- sp 4) 20 goto-table ()))) - (lambda (stack sp goto-table $lookahead) + (lambda (stack sp goto-table $look) (let* (($2 (aref stack (- sp 1))) ($1 (aref stack (- sp 3)))) (lr-push stack (- sp 4) 21 goto-table ()))) - (lambda (stack sp goto-table $lookahead) + (lambda (stack sp goto-table $look) (let* (($4 (aref stack (- sp 1))) ($3 (aref stack (- sp 3))) ($2 (aref stack (- sp 5))) ($1 (aref stack (- sp 7)))) (lr-push stack (- sp 8) 21 goto-table ()))) - (lambda (stack sp goto-table $lookahead) + (lambda (stack sp goto-table $look) (let* (($4 (aref stack (- sp 1))) ($3 (aref stack (- sp 3))) ($2 (aref stack (- sp 5))) ($1 (aref stack (- sp 7)))) (lr-push stack (- sp 8) 22 goto-table ()))) - (lambda (stack sp goto-table $lookahead) + (lambda (stack sp goto-table $look) (let* () (lr-push stack (- sp 0) 23 goto-table ()))) - (lambda (stack sp goto-table $lookahead) + (lambda (stack sp goto-table $look) (let* (($1 (aref stack (- sp 1)))) (lr-push stack (- sp 2) 23 goto-table ()))) - (lambda (stack sp goto-table $lookahead) + (lambda (stack sp goto-table $look) (let* (($1 (aref stack (- sp 1)))) (lr-push stack (- sp 2) 24 goto-table ()))) - (lambda (stack sp goto-table $lookahead) + (lambda (stack sp goto-table $look) (let* (($1 (aref stack (- sp 1)))) (lr-push stack (- sp 2) 24 goto-table ()))) - (lambda (stack sp goto-table $lookahead) + (lambda (stack sp goto-table $look) (let* (($2 (aref stack (- sp 1))) ($1 (aref stack (- sp 3)))) (lr-push stack (- sp 4) 25 goto-table ()))) - (lambda (stack sp goto-table $lookahead) + (lambda (stack sp goto-table $look) (let* (($1 (aref stack (- sp 1)))) (lr-push stack (- sp 2) 26 goto-table $1))) - (lambda (stack sp goto-table $lookahead) + (lambda (stack sp goto-table $look) (let* (($1 (aref stack (- sp 1)))) (lr-push stack (- sp 2) 26 goto-table $1))) - (lambda (stack sp goto-table $lookahead) + (lambda (stack sp goto-table $look) (let* (($1 (aref stack (- sp 1)))) (lr-push stack (- sp 2) 27 goto-table ()))) - (lambda (stack sp goto-table $lookahead) + (lambda (stack sp goto-table $look) (let* () (lr-push stack (- sp 0) 28 goto-table ()))) - (lambda (stack sp goto-table $lookahead) + (lambda (stack sp goto-table $look) (let* (($1 (aref stack (- sp 1)))) (lr-push stack (- sp 2) 28 goto-table ()))) - (lambda (stack sp goto-table $lookahead) + (lambda (stack sp goto-table $look) (let* () (lr-push stack (- sp 0) 29 goto-table ()))) - (lambda (stack sp goto-table $lookahead) + (lambda (stack sp goto-table $look) (let* (($1 (aref stack (- sp 1)))) (lr-push stack (- sp 2) 29 goto-table ()))) - (lambda (stack sp goto-table $lookahead) + (lambda (stack sp goto-table $look) (let* (($1 (aref stack (- sp 1)))) (lr-push stack (- sp 2) 30 goto-table ()))) - (lambda (stack sp goto-table $lookahead) + (lambda (stack sp goto-table $look) (let* (($3 (aref stack (- sp 1))) ($2 (aref stack (- sp 3))) ($1 (aref stack (- sp 5)))) (lr-push stack (- sp 6) 30 goto-table ()))) - (lambda (stack sp goto-table $lookahead) + (lambda (stack sp goto-table $look) (let* (($1 (aref stack (- sp 1)))) (lr-push stack (- sp 2) 31 goto-table ()))) - (lambda (stack sp goto-table $lookahead) + (lambda (stack sp goto-table $look) (let* (($3 (aref stack (- sp 1))) ($2 (aref stack (- sp 3))) ($1 (aref stack (- sp 5)))) (lr-push stack (- sp 6) 31 goto-table ()))) - (lambda (stack sp goto-table $lookahead) + (lambda (stack sp goto-table $look) (let* (($1 (aref stack (- sp 1)))) (lr-push stack (- sp 2) 32 goto-table ()))) - (lambda (stack sp goto-table $lookahead) + (lambda (stack sp goto-table $look) (let* (($3 (aref stack (- sp 1))) ($2 (aref stack (- sp 3))) ($1 (aref stack (- sp 5)))) (lr-push stack (- sp 6) 32 goto-table ()))) - (lambda (stack sp goto-table $lookahead) + (lambda (stack sp goto-table $look) (let* () - (lr-push stack (- sp 0) 33 goto-table nil))) - (lambda (stack sp goto-table $lookahead) + (lr-push stack (- sp 0) 33 goto-table ()))) + (lambda (stack sp goto-table $look) (let* (($2 (aref stack (- sp 1))) ($1 (aref stack (- sp 3)))) - (lr-push stack (- sp 4) 33 goto-table (cons (if $1 (car $1) $2) $2)))) - (lambda (stack sp goto-table $lookahead) + (lr-push stack (- sp 4) 33 goto-table ()))) + (lambda (stack sp goto-table $look) (let* (($2 (aref stack (- sp 1))) ($1 (aref stack (- sp 3)))) - (lr-push stack (- sp 4) 33 goto-table (cons (if $1 (car $1) $2) $2)))) - (lambda (stack sp goto-table $lookahead) + (lr-push stack (- sp 4) 33 goto-table ()))) + (lambda (stack sp goto-table $look) (let* (($2 (aref stack (- sp 1))) ($1 (aref stack (- sp 3)))) - (lr-push stack (- sp 4) 33 goto-table (cons (if $1 (car $1) (car $2)) (cdr $2))))) - (lambda (stack sp goto-table $lookahead) + (lr-push stack (- sp 4) 33 goto-table ()))) + (lambda (stack sp goto-table $look) (let* (($2 (aref stack (- sp 1))) ($1 (aref stack (- sp 3)))) (lr-push stack (- sp 4) 34 goto-table ()))) - (lambda (stack sp goto-table $lookahead) + (lambda (stack sp goto-table $look) (let* (($2 (aref stack (- sp 1))) ($1 (aref stack (- sp 3)))) (lr-push stack (- sp 4) 35 goto-table ()))) - (lambda (stack sp goto-table $lookahead) + (lambda (stack sp goto-table $look) (let* (($2 (aref stack (- sp 1))) ($1 (aref stack (- sp 3)))) (lr-push stack (- sp 4) 36 goto-table ()))) - (lambda (stack sp goto-table $lookahead) + (lambda (stack sp goto-table $look) (let* (($2 (aref stack (- sp 1))) ($1 (aref stack (- sp 3)))) (lr-push stack (- sp 4) 37 goto-table ()))) - (lambda (stack sp goto-table $lookahead) + (lambda (stack sp goto-table $look) (let* (($2 (aref stack (- sp 1))) ($1 (aref stack (- sp 3)))) (lr-push stack (- sp 4) 38 goto-table ()))) - (lambda (stack sp goto-table $lookahead) + (lambda (stack sp goto-table $look) (let* (($2 (aref stack (- sp 1))) ($1 (aref stack (- sp 3)))) (lr-push stack (- sp 4) 39 goto-table ()))) - (lambda (stack sp goto-table $lookahead) + (lambda (stack sp goto-table $look) (let* (($2 (aref stack (- sp 1))) ($1 (aref stack (- sp 3)))) (lr-push stack (- sp 4) 40 goto-table ()))) - (lambda (stack sp goto-table $lookahead) + (lambda (stack sp goto-table $look) (let* (($2 (aref stack (- sp 1))) ($1 (aref stack (- sp 3)))) - (lr-push stack (- sp 4) 41 goto-table (cons (car $1) (if $2 (cdr $2) (cdr $1)))))) - (lambda (stack sp goto-table $lookahead) + (lr-push stack (- sp 4) 41 goto-table $1))) + (lambda (stack sp goto-table $look) (let* (($2 (aref stack (- sp 1))) ($1 (aref stack (- sp 3)))) (lr-push stack (- sp 4) 42 goto-table ()))) - (lambda (stack sp goto-table $lookahead) + (lambda (stack sp goto-table $look) (let* (($2 (aref stack (- sp 1))) ($1 (aref stack (- sp 3)))) - (lr-push stack (- sp 4) 43 goto-table (cons $1 (if $2 (cdr $2) $1))))) - (lambda (stack sp goto-table $lookahead) + (lr-push stack (- sp 4) 43 goto-table $1))) + (lambda (stack sp goto-table $look) (let* (($3 (aref stack (- sp 1))) ($2 (aref stack (- sp 3))) ($1 (aref stack (- sp 5)))) - (lr-push stack (- sp 6) 44 goto-table (cons $1 $3)))) - (lambda (stack sp goto-table $lookahead) + (lr-push stack (- sp 6) 44 goto-table $1))) + (lambda (stack sp goto-table $look) (let* () (lr-push stack (- sp 0) 45 goto-table ()))) - (lambda (stack sp goto-table $lookahead) + (lambda (stack sp goto-table $look) (let* (($2 (aref stack (- sp 1))) ($1 (aref stack (- sp 3)))) (lr-push stack (- sp 4) 45 goto-table ()))) - (lambda (stack sp goto-table $lookahead) + (lambda (stack sp goto-table $look) (let* (($2 (aref stack (- sp 1))) ($1 (aref stack (- sp 3)))) (lr-push stack (- sp 4) 45 goto-table ()))) - (lambda (stack sp goto-table $lookahead) + (lambda (stack sp goto-table $look) (let* (($2 (aref stack (- sp 1))) ($1 (aref stack (- sp 3)))) (lr-push stack (- sp 4) 45 goto-table ()))) - (lambda (stack sp goto-table $lookahead) + (lambda (stack sp goto-table $look) (let* (($2 (aref stack (- sp 1))) ($1 (aref stack (- sp 3)))) (lr-push stack (- sp 4) 45 goto-table ()))) - (lambda (stack sp goto-table $lookahead) + (lambda (stack sp goto-table $look) (let* (($2 (aref stack (- sp 1))) ($1 (aref stack (- sp 3)))) (lr-push stack (- sp 4) 45 goto-table ()))) - (lambda (stack sp goto-table $lookahead) + (lambda (stack sp goto-table $look) (let* (($3 (aref stack (- sp 1))) ($2 (aref stack (- sp 3))) ($1 (aref stack (- sp 5)))) (lr-push stack (- sp 6) 46 goto-table ()))) - (lambda (stack sp goto-table $lookahead) + (lambda (stack sp goto-table $look) (let* () (lr-push stack (- sp 0) 47 goto-table ()))) - (lambda (stack sp goto-table $lookahead) + (lambda (stack sp goto-table $look) (let* (($2 (aref stack (- sp 1))) ($1 (aref stack (- sp 3)))) (lr-push stack (- sp 4) 47 goto-table ()))) - (lambda (stack sp goto-table $lookahead) + (lambda (stack sp goto-table $look) (let* (($2 (aref stack (- sp 1))) ($1 (aref stack (- sp 3)))) (lr-push stack (- sp 4) 47 goto-table ()))) - (lambda (stack sp goto-table $lookahead) + (lambda (stack sp goto-table $look) (let* (($2 (aref stack (- sp 1))) ($1 (aref stack (- sp 3)))) (lr-push stack (- sp 4) 47 goto-table ()))) - (lambda (stack sp goto-table $lookahead) + (lambda (stack sp goto-table $look) (let* (($2 (aref stack (- sp 1))) ($1 (aref stack (- sp 3)))) (lr-push stack (- sp 4) 47 goto-table ()))) - (lambda (stack sp goto-table $lookahead) + (lambda (stack sp goto-table $look) (let* (($2 (aref stack (- sp 1))) ($1 (aref stack (- sp 3)))) (lr-push stack (- sp 4) 47 goto-table ()))) - (lambda (stack sp goto-table $lookahead) + (lambda (stack sp goto-table $look) (let* (($3 (aref stack (- sp 1))) ($2 (aref stack (- sp 3))) ($1 (aref stack (- sp 5)))) - (lr-push stack (- sp 6) 48 goto-table (cons $1 $3)))) - (lambda (stack sp goto-table $lookahead) + (lr-push stack (- sp 6) 48 goto-table ()))) + (lambda (stack sp goto-table $look) (let* () (lr-push stack (- sp 0) 49 goto-table ()))) - (lambda (stack sp goto-table $lookahead) + (lambda (stack sp goto-table $look) (let* (($2 (aref stack (- sp 1))) ($1 (aref stack (- sp 3)))) (lr-push stack (- sp 4) 49 goto-table ()))) - (lambda (stack sp goto-table $lookahead) + (lambda (stack sp goto-table $look) (let* (($2 (aref stack (- sp 1))) ($1 (aref stack (- sp 3)))) (lr-push stack (- sp 4) 49 goto-table ()))) - (lambda (stack sp goto-table $lookahead) + (lambda (stack sp goto-table $look) (let* (($2 (aref stack (- sp 1))) ($1 (aref stack (- sp 3)))) (lr-push stack (- sp 4) 49 goto-table ()))) - (lambda (stack sp goto-table $lookahead) + (lambda (stack sp goto-table $look) (let* (($2 (aref stack (- sp 1))) ($1 (aref stack (- sp 3)))) (lr-push stack (- sp 4) 49 goto-table ()))) - (lambda (stack sp goto-table $lookahead) + (lambda (stack sp goto-table $look) (let* (($2 (aref stack (- sp 1))) ($1 (aref stack (- sp 3)))) (lr-push stack (- sp 4) 49 goto-table ()))) - (lambda (stack sp goto-table $lookahead) + (lambda (stack sp goto-table $look) (let* (($2 (aref stack (- sp 1))) ($1 (aref stack (- sp 3)))) (lr-push stack (- sp 4) 49 goto-table ()))) - (lambda (stack sp goto-table $lookahead) + (lambda (stack sp goto-table $look) (let* (($2 (aref stack (- sp 1))) ($1 (aref stack (- sp 3)))) (lr-push stack (- sp 4) 49 goto-table ())))