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

[yamaken at freedesktop.org]

Author: yamaken
Date: 2006-01-03 00:37:06 -0800 (Tue, 03 Jan 2006)
New Revision: 2748

Modified:
   branches/r5rs/uim/uim-scm.c
Log:
* uim/uim-scm.c
  - (uim_scm_load_file): Fix lacking error recovery


Modified: branches/r5rs/uim/uim-scm.c
===================================================================
--- branches/r5rs/uim/uim-scm.c	2006-01-03 08:24:43 UTC (rev 2747)
+++ branches/r5rs/uim/uim-scm.c	2006-01-03 08:37:06 UTC (rev 2748)
@@ -332,12 +332,15 @@
 uim_bool
 uim_scm_load_file(const char *fn)
 {
+  uim_bool ret;
+
   if (!fn)
     return UIM_FALSE;
 
-  scm_load(fn);
+  UIM_EVAL_FSTRING1(NULL, "(guard (err (else #f)) (load \"%s\"))", fn);
+  ret = uim_scm_c_bool(uim_scm_return_value());
 
-  return UIM_TRUE;
+  return ret;
 }
 
 uim_lisp