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

[yamaken at freedesktop.org]

Author: yamaken
Date: 2005-12-10 00:11:12 -0800 (Sat, 10 Dec 2005)
New Revision: 2516

Modified:
   branches/r5rs/sigscheme/read.c
   branches/r5rs/sigscheme/storage-gc.c
Log:
* sigscheme/read.c
  - (read_unicode_sequence): Fix error handling
* sigscheme/storage-gc.c
  - (add_heap): Ditto


Modified: branches/r5rs/sigscheme/read.c
===================================================================
--- branches/r5rs/sigscheme/read.c	2005-12-10 08:02:36 UTC (rev 2515)
+++ branches/r5rs/sigscheme/read.c	2005-12-10 08:11:12 UTC (rev 2516)
@@ -457,7 +457,7 @@
     case 'u': len = 4; break;
     case 'U': len = 8; break;
     default:
-        /* FIXME: add fatal error handling */
+        SCM_ASSERT(FALSE);
         break;
     }
     seq[0] = prefix;

Modified: branches/r5rs/sigscheme/storage-gc.c
===================================================================
--- branches/r5rs/sigscheme/storage-gc.c	2005-12-10 08:02:36 UTC (rev 2515)
+++ branches/r5rs/sigscheme/storage-gc.c	2005-12-10 08:11:12 UTC (rev 2516)
@@ -318,7 +318,7 @@
     CDBG((SCM_DBG_GC, "add_heap current num of heaps:%d", n_heaps));
 
     if (n_heaps_max <= n_heaps)
-        ERR("heap exhausted"); /* FIXME: replace with fatal error handling */
+        Scm_FatalError("heap exhausted");
 
     heaps = realloc(heaps, sizeof(ScmObjHeap) * (n_heaps + 1));
     heap = malloc_aligned(sizeof(ScmCell) * heap_size);