From: Han-Wen Nienhuys <hanwen@xs4all.nl>
Date: Thu, 9 Jun 2005 18:28:59 +0000 (+0000)
Subject: * lily/program-option.cc: add debug-gc option.
X-Git-Tag: release/2.5.30~11
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=4292e4fd2d7a4a784d66bc1f92dc22995078bc0f;p=lilypond.git

* lily/program-option.cc: add debug-gc option.

* lily/program-option.cc: rename from scm-option.cc
---

diff --git a/ChangeLog b/ChangeLog
index a1bc28ea77..392085c7ab 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,7 @@
 2005-06-09  Han-Wen Nienhuys  <hanwen@xs4all.nl>
 
+	* lily/program-option.cc: add debug-gc option.
+
 	* lily/include/lily-guile-macros.hh: don't protect exported module
 	objects.
 
diff --git a/lily/program-option.cc b/lily/program-option.cc
index 2887a02278..0be249ef04 100644
--- a/lily/program-option.cc
+++ b/lily/program-option.cc
@@ -57,6 +57,8 @@ static Lilypond_option_init options[] = {
    "delete unusable PostScript files"},   
   {"ttf-verbosity", "0",
    "how much verbosity for TTF font embedding?"},
+  {"debug-gc", "#f",
+   "dump GC protection info"}, 
   {0,0,0},
 };
 
diff --git a/scm/lily.scm b/scm/lily.scm
index 87dcaa68e9..6fd1db2d5e 100644
--- a/scm/lily.scm
+++ b/scm/lily.scm
@@ -327,7 +327,7 @@ The syntax is the same as `define*-public'."
 	 (lambda () (ly:parse-file file-name))
 	 (lambda (x . args) (handler x file-name)))
 
-  (if #t
+  (if (ly:get-option 'debug-gc)
       (dump-gc-protects)))
 
 (use-modules (scm editor))