# HG changeset patch
# User Dave Love <fx@gnu.org>
# Date 980849223 0
# Node ID 91fee7514fc7ab26c1ef3e41e1758644723de472
# Parent  c6ae90d825523759de26dde3eb6349a69521451f
(Fbyte_code) <Bgeq>: Add BEFORE_POTENTIAL_GC and
AFTER_POTENTIAL_GC.

diff -r c6ae90d82552 -r 91fee7514fc7 src/bytecode.c
--- a/src/bytecode.c	Tue Jan 30 09:57:39 2001 +0000
+++ b/src/bytecode.c	Tue Jan 30 10:07:03 2001 +0000
@@ -1193,8 +1193,10 @@
 	case Bgeq:
 	  {
 	    Lisp_Object v1;
+	    BEFORE_POTENTIAL_GC ();
 	    v1 = POP;
 	    TOP = Fgeq (TOP, v1);
+	    AFTER_POTENTIAL_GC ();
 	    break;
 	  }