diff options
| author | David Kastrup <dak@gnu.org> | 2013-04-26 16:03:38 +0200 |
|---|---|---|
| committer | David Kastrup <dak@gnu.org> | 2013-05-10 11:53:18 +0200 |
| commit | 65025034b83aac9c6ad14ce9a0fb65639634575c (patch) | |
| tree | da5bd2066084aef213f9b384afe016f7dad848e6 /scm | |
| parent | 2b87d4d5f8976b4b06f5d475067c2c2fe538f858 (diff) | |
Issue 3335: Remove "dispatch" function from scm/output-svg.scm
It does not appear to make any sense at all.
Diffstat (limited to 'scm')
| -rw-r--r-- | scm/output-svg.scm | 20 |
1 files changed, 5 insertions, 15 deletions
diff --git a/scm/output-svg.scm b/scm/output-svg.scm index a15a9d8ad0..354bff4e05 100644 --- a/scm/output-svg.scm +++ b/scm/output-svg.scm @@ -17,7 +17,6 @@ ;;;; along with LilyPond. If not, see <http://www.gnu.org/licenses/>. (define-module (scm output-svg)) -(define this-module (current-module)) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;; globals @@ -39,14 +38,6 @@ (define lily-unit-length 1.7573) -(define (dispatch expr) - (let ((keyword (car expr))) - (cond ((eq? keyword 'some-func) "") - (else (if (module-defined? this-module keyword) - (apply (eval keyword this-module) (cdr expr)) - (begin (ly:warning (_ "undefined: ~S") keyword) - "")))))) - ;; Helper functions (define-public (attributes attributes-alist) (apply string-append @@ -330,8 +321,7 @@ ;;; (define (char font i) - (dispatch - `(fontify ,font ,(entity 'tspan (char->entity (integer->char i)))))) + (fontify font (entity 'tspan (char->entity (integer->char i))))) (define (circle radius thick is-filled) (entity @@ -486,7 +476,7 @@ "") (define (named-glyph font name) - (dispatch `(fontify ,font ,name))) + (fontify font name)) (define (no-origin) "") @@ -613,7 +603,7 @@ x y)) (define (text font string) - (dispatch `(fontify ,font ,(entity 'tspan (string->entities string))))) + (fontify font (entity 'tspan (string->entities string)))) (define (url-link url x y) (string-append @@ -632,5 +622,5 @@ (let ((escaped-string (string-regexp-substitute "<" "<" (string-regexp-substitute "&" "&" string)))) - (dispatch `(fontify ,pango-font-description - ,(entity 'tspan escaped-string))))) + (fontify pango-font-description + (entity 'tspan escaped-string)))) |