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

[kzk at freedesktop.org]

Author: kzk
Date: 2005-11-18 18:04:15 -0800 (Fri, 18 Nov 2005)
New Revision: 2159

Modified:
   branches/r5rs/sigscheme/test-compact.c
Log:
* sigscheme/test-compact.c
  - add minus value test case


Modified: branches/r5rs/sigscheme/test-compact.c
===================================================================
--- branches/r5rs/sigscheme/test-compact.c	2005-11-19 02:01:00 UTC (rev 2158)
+++ branches/r5rs/sigscheme/test-compact.c	2005-11-19 02:04:15 UTC (rev 2159)
@@ -192,11 +192,9 @@
     check_type(ScmInt, obj);
     SCM_ASSERT(SCM_INT_VALUE(obj) == 0);
 
-/* Fail Now
     SCM_INT_SET_VALUE(obj, -10);
     check_type(ScmInt, obj);
     SCM_ASSERT(SCM_INT_VALUE(obj) == -10);
-*/
 
     SCM_INT_SET_VALUE(obj, val);
 
@@ -744,4 +742,3 @@
     Scm_CheckCFuncPointer();
     Scm_CheckConstant();
 }
-