Mercurial > hg > xemacs-beta

diff src/bytecode.c @ 280:7df0dd720c89 r21-0b38

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-0b38
author cvs
date Mon, 13 Aug 2007 10:32:22 +0200
parents ca9a9ec9c1c1
children 8626e4521993
line wrap: on
line diff
--- a/src/bytecode.c	Mon Aug 13 10:31:30 2007 +0200
+++ b/src/bytecode.c	Mon Aug 13 10:32:22 2007 +0200
@@ -811,22 +811,22 @@
 
 	case Bgtr:
 	  v1 = POP;
-	  TOP = Fgtr (TOP, v1);
+	  TOP = arithcompare (TOP, v1, arith_grtr);
 	  break;
 
 	case Blss:
 	  v1 = POP;
-	  TOP = Flss (TOP, v1);
+	  TOP = arithcompare (TOP, v1, arith_less);
 	  break;
 
 	case Bleq:
 	  v1 = POP;
-	  TOP = Fleq (TOP, v1);
+	  TOP = arithcompare (TOP, v1, arith_less_or_equal);
 	  break;
 
 	case Bgeq:
 	  v1 = POP;
-	  TOP = Fgeq (TOP, v1);
+	  TOP = arithcompare (TOP, v1, arith_grtr_or_equal);
 	  break;
 
 	case Bdiff: