[uim-commit] r2514 - branches/r5rs/sigscheme

[yamaken at freedesktop.org]

Author: yamaken
Date: 2005-12-09 23:27:16 -0800 (Fri, 09 Dec 2005)
New Revision: 2514

Modified:
   branches/r5rs/sigscheme/error.c
Log:
* sigscheme/error.c
  - (SigScm_Die): Replace ScmOp_fatal_error() with
    Scm_FatalError(). This also remove Scheme-level port dependency


Modified: branches/r5rs/sigscheme/error.c
===================================================================
--- branches/r5rs/sigscheme/error.c	2005-12-10 06:43:32 UTC (rev 2513)
+++ branches/r5rs/sigscheme/error.c	2005-12-10 07:27:16 UTC (rev 2514)
@@ -226,7 +226,7 @@
 int SigScm_Die(const char *msg, const char *filename, int line)
 {
     char *reason;
-    ScmObj err_obj;
+    ScmObj reason_holder;
 
 #if HAVE_ASPRINTF
     asprintf(&reason, "SigScheme Died : %s (file : %s, line : %d)",
@@ -235,8 +235,10 @@
     /* FIXME: provide replace asprintf */
     reason = strdup("SigScheme Died");
 #endif /* HAVE_ASPRINTF */
-    err_obj = Scm_MakeErrorObj(Scm_NewImmutableString(reason), LIST_1(SCM_UNDEF));
-    ScmOp_fatal_error(err_obj);
+    /* reason will implicitly be freed via the object on GC */
+    reason_holder = Scm_NewImmutableString(reason);
+
+    Scm_FatalError(reason);
     /* NOTREACHED */
     return 1;  /* dummy value for boolean expression */
 }