From 586931afc9456a8b76a07a231ec15734a30e0f80 Mon Sep 17 00:00:00 2001 From: tomo Date: Sat, 27 Sep 2008 06:57:57 +0000 Subject: [PATCH] (func_for_each_object): Fix bug about GC-protection. --- src/concord.c | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/src/concord.c b/src/concord.c index faab23c..73b6047 100644 --- a/src/concord.c +++ b/src/concord.c @@ -895,7 +895,7 @@ func_for_each_object (CONCORD_String object_id, CONCORD_Feature feature, CONCORD_String value) { - struct gcpro gcpro1, gcpro2, gcpro3; + struct gcpro gcpro1, gcpro2; Lisp_Object obj, val, ret; #if 0 @@ -912,7 +912,6 @@ func_for_each_object (CONCORD_String object_id, obj = Fconcord_make_object (for_each_object_closure->genre, obj, for_each_object_closure->ds); - UNGCPRO; #if 0 val = read_from_c_string (CONCORD_String_data (value), CONCORD_String_size (value) ); @@ -923,7 +922,8 @@ func_for_each_object (CONCORD_String object_id, Qfile_name), Qnil, Qnil)); #endif - GCPRO3 (obj, val, ret); + UNGCPRO; + GCPRO2 (obj, val); ret = call2 (for_each_object_closure->function, obj, val); UNGCPRO; for_each_object_closure->ret = ret; -- 1.7.10.4