* Sync up to flim-1_10_2 from flim-1_10_0.

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

diff --git a/lr-driver.el b/lr-driver.el
index b3de911..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)))