[uim commit] r5446 - branches/sigscheme-0.8/test-c

[codesite-noreply]

Author: yamakenz
Date: Sat Apr 26 14:20:53 2008
New Revision: 5446
Modified:
  branches/sigscheme-0.8/test-c/test-format.c
  branches/sigscheme-0.8/test-c/test-gc-protect-stack.c

Log:
* Merge r5445 from trunk


Modified: branches/sigscheme-0.8/test-c/test-format.c
==============================================================================
--- branches/sigscheme-0.8/test-c/test-format.c (original)
+++ branches/sigscheme-0.8/test-c/test-format.c Sat Apr 26 14:20:53 2008
@@ -105,8 +105,13 @@
main(int argc, char **argv)
{
    tst_suite_info suite = TST_DEFAULT_SUITE_SETUP;
+    const char *my_argv[] = {
+        "dummy",
+        "--system-load-path", TST_SCM_SYSTEM_LOAD_PATH,
+        NULL
+    };

-    scm_initialize(NULL, NULL);
+    scm_initialize(NULL, my_argv);

    scm_gc_protect_with_init(&lst,
                             LIST_5(SCM_TRUE,

Modified: branches/sigscheme-0.8/test-c/test-gc-protect-stack.c
==============================================================================
--- branches/sigscheme-0.8/test-c/test-gc-protect-stack.c       (original)
+++ branches/sigscheme-0.8/test-c/test-gc-protect-stack.c	Sat Apr 26 
14:20:53 2008
@@ -168,8 +168,13 @@
main(int argc, char **argv)
{
    tst_suite_info suite = TST_DEFAULT_SUITE_SETUP;
+    const char *my_argv[] = {
+        "dummy",
+        "--system-load-path", TST_SCM_SYSTEM_LOAD_PATH,
+        NULL
+    };

-    scm_initialize(NULL);
+    scm_initialize(NULL, my_argv);

    stack_dir = probe_stack_growth_dir();
    fvv_internal = fvv;