~ chicken-core (chicken-5) c74359418a6dce8d5b33f303e71243c27fe2b405

commit c74359418a6dce8d5b33f303e71243c27fe2b405
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Sun Feb 14 13:34:06 2010 +0100
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Sun Feb 14 13:34:06 2010 +0100

    enabled use of -private-repository

diff --git a/chicken.h b/chicken.h
index e3b279ea..780737e4 100644
--- a/chicken.h
+++ b/chicken.h
@@ -1330,6 +1330,7 @@ extern double trunc(double);
   int WINAPI WinMain(HINSTANCE me, HINSTANCE you, LPSTR cmdline, int show) \
   { \
     C_gui_mode = 1; \
+    C_private_repository; \
     return CHICKEN_main(0, NULL, (void *)C_toplevel); \
   } C_end_of_main 
 # else
@@ -1337,6 +1338,7 @@ extern double trunc(double);
   int main(int argc, char *argv[]) \
   { \
     C_set_gui_mode; \
+    C_private_repository; \
     return CHICKEN_main(argc, argv, (void*)C_toplevel); \
   } C_end_of_main
 # endif
diff --git a/runtime.c b/runtime.c
index 97679e2a..da4c0547 100644
--- a/runtime.c
+++ b/runtime.c
@@ -8875,10 +8875,6 @@ C_use_private_repository()
 {
   C_char *path = C_path_to_executable();
 
-  if(debug_mode) 
-    C_dbg(C_text("debug"), C_text("using private repository at `%s'\n"),
-	  buffer);
-
   private_repository = path == NULL ? NULL : C_strdup(path);
 }