X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=lr-driver.el;h=32fe2945173823c1d023ff8d0718281d99f650f1;hb=4d9c85cce61c5f3a0e1746a885b57b667f3843d8;hp=b3de9119b320729e5fca6df8bcf8b875ef5bc765;hpb=a7ef9fab327836625557cfd1811a0584a00f93d9;p=elisp%2Fflim.git

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