From 55ca6c7b1e641420564432eb8a8cab77fcdefddf Mon Sep 17 00:00:00 2001
From: hanwen <hanwen>
Date: Thu, 9 Jun 2005 18:28:59 +0000
Subject: [PATCH] * lily/program-option.cc: add debug-gc option.

* lily/program-option.cc: rename from scm-option.cc
---
 ChangeLog              | 2 ++
 lily/program-option.cc | 2 ++
 scm/lily.scm           | 2 +-
 3 files changed, 5 insertions(+), 1 deletion(-)

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))
-- 
2.39.2