X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=scm%2Fdisplay-lily.scm;h=21ed3a93f65597c1418b71f0d2a5e59f593a9d09;hb=18b1975ebc7601abf5fb49df87d5a965c53fce9b;hp=eb1b876739308d4bdff97b309902bf0f4ebb5c8f;hpb=d4ba37c298813e0f7008ef8388e126c34d8f8dd3;p=lilypond.git diff --git a/scm/display-lily.scm b/scm/display-lily.scm index eb1b876739..21ed3a93f6 100644 --- a/scm/display-lily.scm +++ b/scm/display-lily.scm @@ -2,7 +2,7 @@ ;;; ;;; ;;; -;;; (c) 2005--2007 Nicolas Sceaux +;;; (c) 2005--2009 Nicolas Sceaux ;;; ;;; - This file defines the procedures used to define display methods for each @@ -132,7 +132,7 @@ display method will be called." (define (gen-condition expr pattern) "Helper function for `with-music-match'. Generate an form that checks if the properties of `expr' -match thoses desscribed in `pattern'." +match thoses described in `pattern'." (let* (;; all (property . value) found at the first depth in pattern, ;; including a (name . ) pair. (pat-all-props (cons (cons 'name (second pattern))