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

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

diff --git a/ChangeLog b/ChangeLog
index a1bc28ea7718fda2465da6737713290c285e098b..392085c7abf385182b3651c6e340ff49e9e167c1 100644 (file)
--- 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 2887a022786cffa481879ab42f4cf78af3a2ac6f..0be249ef04daa56bd6abb6e41ba7d4e63f7e7126 100644 (file)
--- 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 87dcaa68e907c359045c7ab54564beca8d72fcac..6fd1db2d5ec52fc3e3deed710a53028560040efc 100644 (file)
--- 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))