*** empty log message ***

original commit: 363dec8f0846a9b9be394ee46eda485d3a5e7e95
tokens
Scott Owens 23 years ago
parent 807265c2fc
commit f49e733504

@ -155,10 +155,10 @@
(reduce-prod-num action)) (reduce-prod-num action))
args) args)
,(if (null? args) ,(if (null? args)
(caddr new-stack) (cadr ip)
(cadr args)) (cadr args))
,(if (null? args) ,(if (null? args)
(caddr new-stack) (cadr ip)
(list-ref args (- (* (reduce-rhs-length action) 3) 1))) (list-ref args (- (* (reduce-rhs-length action) 3) 1)))
,@new-stack) ,@new-stack)
``(,goto ``(,goto

Loading…
Cancel
Save