(scm->string): don't crash if a

procedure doesn't have a name.

diff --git a/ChangeLog b/ChangeLog
index ca6bae3e3ffc6c6566c44af9fe58029cbc989b60..ee36be8ee4ec9ab2e28a5c6daddceed6b1380dc8 100644 (file)
--- 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 cb030c50d5274949cbc25297ca92be4ba4649922..626f2fc250ce7350f237f2eeec4609accb42ce36 100644 (file)
--- 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 9b412c4df5e9ac0e811b7bf883876f00231914de..10851a8a5327469e84e6e2681cd6ac97624fd33b 100644 (file)
--- 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