* python/rational.py: python 2.3 compat.

[lilypond.git] / scm / document-translation.scm

diff --git a/scm/document-translation.scm b/scm/document-translation.scm
index 096de09c49be532c9ca1b9e777ee012db7903649..605e6c84036a6b462517d8f557d7e016cc5d4d89 100644 (file)
--- a/scm/document-translation.scm
+++ b/scm/document-translation.scm
@@ -127,21 +127,16 @@
 
       (string-append
        "@item Set "
-       (format "grob-property @code{~a} " (string-join path " "))
-       (format " in @ref{~a} " sym)
-       (if (not (null? (cddr body)))
-          (format " to @code{~a}" (scm->texi value))
-          "")
-       
+       (format "grob-property @code{~a} " (string-join (map symbol->string path) " "))
+       (format " in @ref{~a} to @code{~a}.  " context-sym (scm->texi value))
        "\n")))
-     ((equal? (object-property sym 'is-grob?) #t) "")
+     ((equal? (object-property context-sym 'is-grob?) #t) "")
      ((equal? tag 'assign)
-      (string-append
-       "@item Set translator property @code{"
-       (symbol->string (car body))
-       "} to @code{"
-       (scm->texi (cadr body))
-       "}\n")))))
+      (format "@item Set translator property @code{~a} to @code{~a}"
+             context-sym
+             (scm->texi (car args))))
+     )))
+     
 
 (define (context-doc context-desc)
   (let* ((name-sym (cdr (assoc 'context-name context-desc)))