adding ops

diff --git a/lisp/emacs-lisp/comp.el b/lisp/emacs-lisp/comp.el
index 89a35d1fe54d9c797c325381138fbad7887d99fa..6bc293e5963217f7eb6600942e9e0f96ae88cbe7 100644 (file)
--- a/lisp/emacs-lisp/comp.el
+++ b/lisp/emacs-lisp/comp.el
@@ -497,23 +497,19 @@ the annotation emission."
        (comp-emit-set-call `(callref Fconcat 3 ,(comp-sp))))
       (byte-concat4
        (comp-emit-set-call `(callref Fconcat 4 ,(comp-sp))))
-      (byte-sub1)
-      (byte-add1)
-      (byte-eqlsign
-       (comp-emit-set-call `(call Fstring_equal
-                                  ,(comp-slot)
-                                  ,(comp-slot-next))))
-      (byte-gtr)
-      (byte-lss)
-      (byte-leq)
-      (byte-geq)
-      (byte-diff)
-      (byte-negate)
-      (byte-plus
-       (comp-emit-set-call `(callref Fplus 2 ,(comp-sp))))
+      (byte-sub1 1+ Fadd1)
+      (byte-add1 1- Fsub1)
+      (byte-eqlsign string-equal Fstring-equal)
+      (byte-gtr > Fgtr)
+      (byte-lss < Flss)
+      (byte-leq <= Fleq)
+      (byte-geq >= Fgeq)
+      (byte-diff - Fmius)
+      (byte-negate null Fnull)
+      (byte-plus + Fplus)
       (byte-max auto)
       (byte-min auto)
-      (byte-mult)
+      (byte-mult * Ftimes)
       (byte-point auto)
       (byte-goto-char auto)
       (byte-insert auto)