*** empty log message ***

original commit: 363dec8f0846a9b9be394ee46eda485d3a5e7e95
23 years ago · f49e733504
parent 807265c2fc
commit f49e733504
1 changed files with 2 additions and 2 deletions
--- a/collects/parser-tools/private-yacc/parser-builder.ss
+++ b/collects/parser-tools/private-yacc/parser-builder.ss
@ -155,10 +155,10 @@
                                                                (reduce-prod-num action))
                                                    args)
                                                  ,(if (null? args)
-                                                       (caddr new-stack)
+                                                       (cadr ip)
                                                       (cadr args))
                                                  ,(if (null? args)
-                                                       (caddr new-stack)
+                                                       (cadr ip)
                                                       (list-ref args (- (* (reduce-rhs-length action) 3) 1)))
                                                  ,@new-stack)
                                               ``(,goto