* mel-ccl.el (mel-ccl-encode-q-generic): New compile-time

[elisp/flim.git] / lr-driver.el

diff --git a/lr-driver.el b/lr-driver.el
index 7c14b19..32fe294 100644 (file)
--- a/lr-driver.el
+++ b/lr-driver.el
@@ -29,7 +29,7 @@
 
 (defconst lr-max-stack-size 500)
 
-(defun lr-push (stack sp new-cat goto-table lval)
+(defsubst lr-push (stack sp new-cat goto-table lval)
   (let* ((state     (aref stack sp))
         (new-state (cdr (assq new-cat (aref goto-table state))))
         (new-sp    (+ sp 2)))
@@ -69,4 +69,4 @@
 
            ;; Reduce by rule (- act)
            (t 
-            (setq sp (funcall (aref reduction-table (- act)) stack sp goto-table)))))))))
+            (setq sp (funcall (aref reduction-table (- act)) stack sp goto-table (cdr input))))))))))