[uim-commit] r1240 - branches/r5rs/uim

[yamaken at freedesktop.org]

Author: yamaken
Date: 2005-08-19 11:45:40 -0700 (Fri, 19 Aug 2005)
New Revision: 1240

Modified:
   branches/r5rs/uim/uim-key.c
Log:
* uim/uim-key.c
  - (define_valid_key_symbols): Revert inappropriate change in
    r1239. Stack protection is implicitly being performed by
    UIM_EVAL_*STRING*() through uim_scm_eval_c_string().

    If this code does not work properly, some defects exist in
    the uim-scm and SigScheme layer.


Modified: branches/r5rs/uim/uim-key.c
===================================================================
--- branches/r5rs/uim/uim-key.c	2005-08-19 18:12:58 UTC (rev 1239)
+++ branches/r5rs/uim/uim-key.c	2005-08-19 18:45:40 UTC (rev 1240)
@@ -161,19 +161,14 @@
 static void
 define_valid_key_symbols(void)
 {
-  uim_lisp stack_start;
   int i;
 
-  uim_scm_gc_protect_stack(&stack_start);
-
   UIM_EVAL_STRING(NULL, "(define valid-key-symbols ())");
   for (i = 0; key_tab[i].key; i++) {
     UIM_EVAL_FSTRING1(NULL,
 		      "(set! valid-key-symbols (cons '%s valid-key-symbols))",
 		      key_tab[i].str);
   }
-
-  uim_scm_gc_unprotect_stack(&stack_start);
 }
 
 static const char *