From: Han-Wen Nienhuys <hanwen@xs4all.nl>
Date: Thu, 5 Sep 2002 21:21:00 +0000 (+0000)
Subject: (scm->string): don't crash if a
X-Git-Tag: release/1.6.2~2
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=8e61ae0553bbfbb74764e8ed6fd313829e3ec597;p=lilypond.git

(scm->string): don't crash if a
procedure doesn't have a name.
---

diff --git a/ChangeLog b/ChangeLog
index ca6bae3e3f..ee36be8ee4 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2002-09-05  Han-Wen Nienhuys  <hanwen@cs.uu.nl>
+
+	* scm/documentation-lib.scm (scm->string): don't crash if a
+	procedure doesn't have a name.
+
 2002-09-05  Juergen Reuter  <reuter@ipd.uka.de>
 
 	* input/test/custos.ly: updated test file to show all available
diff --git a/scm/documentation-lib.scm b/scm/documentation-lib.scm
index cb030c50d5..626f2fc250 100644
--- a/scm/documentation-lib.scm
+++ b/scm/documentation-lib.scm
@@ -32,7 +32,7 @@
 ;; don't confuse users with #<procedure .. > syntax. 
 ;; 
 (define (scm->string val)
-  (if (procedure? val)
+  (if (and (procedure? val) (symbol? (procedure-name val)))
       (symbol->string (procedure-name val))
       (string-append
        (if (self-evaluating? val) "" "'")
diff --git a/scm/grob-description.scm b/scm/grob-description.scm
index 9b412c4df5..10851a8a53 100644
--- a/scm/grob-description.scm
+++ b/scm/grob-description.scm
@@ -9,6 +9,7 @@
 ;;;; staffspace (distances)
 
 ;;;; WARNING: the meta field should be the last one.
+;;;; WARNING: don't use anonymous functions for initialization. 
 
 ;; TODO: junk the meta field in favor of something more compact?
 (define all-grob-descriptions