Mercurial > emacs

changeset 66527:098219e8d2e8

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(Fbyte_code): Use internal_lisp_condition_case.
author Richard M. Stallman <rms@gnu.org>
date Sat, 29 Oct 2005 19:32:27 +0000
parents 4edda6684b0a
children c9adaa704c22
files src/bytecode.c
diffstat 1 files changed, 4 insertions(+), 4 deletions(-) [+]
line wrap: on
line diff
--- a/src/bytecode.c	Sat Oct 29 16:08:20 2005 +0000
+++ b/src/bytecode.c	Sat Oct 29 19:32:27 2005 +0000
@@ -861,11 +861,11 @@
 
 	case Bcondition_case:
 	  {
-	    Lisp_Object v1;
-	    v1 = POP;
-	    v1 = Fcons (POP, v1);
+	    Lisp_Object handlers, body;
+	    handlers = POP;
+	    body = POP;
 	    BEFORE_POTENTIAL_GC ();
-	    TOP = Fcondition_case (Fcons (TOP, v1));
+	    TOP = internal_lisp_condition_case (TOP, body, handlers);
 	    AFTER_POTENTIAL_GC ();
 	    break;
 	  }