From c637ff1a496a4aeffd820e189295cb4c9b23aa65 Mon Sep 17 00:00:00 2001 From: David Kastrup Date: Sun, 20 Oct 2013 17:23:46 +0200 Subject: [PATCH] Issue 3624: make-connected-path-stencil broke on closed paths Cf. . Actually, the whole function is an obfuscated Scheme programming contest. I made a few of the more flamboyant list manipulations boring while at it. --- scm/stencil.scm | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/scm/stencil.scm b/scm/stencil.scm index 0ce428a6e5..a457087b15 100644 --- a/scm/stencil.scm +++ b/scm/stencil.scm @@ -464,12 +464,12 @@ respectively." x)) pointlist)) ;; a path must begin with a `moveto' - (prepend-origin (apply list (cons 'moveto origin) path)) + (prepend-origin (cons (cons 'moveto origin) path)) ;; if this path is connected, add closepath to the end (final-path (if connect - (append prepend-origin (list 'closepath)) + (append prepend-origin (list '(closepath))) prepend-origin)) - (command-list (fold-right append '() final-path))) + (command-list (concatenate final-path))) (ly:make-stencil `(path ,thickness `(,@',command-list) -- 2.39.2