2002-12-30 Juergen Reuter <reuter@ipd.uka.de>

[lilypond.git] / scm / tex.scm

diff --git a/scm/tex.scm b/scm/tex.scm
index cdb5cec39ea0fa00e60c22ed98f2381c53698720..ef95de07ef797f4e2c5d9fed6c4acd051fd1176b 100644 (file)
--- a/scm/tex.scm
+++ b/scm/tex.scm
@@ -267,7 +267,7 @@
   (embedded-ps (list 'tuplet  ht gapx dx dy thick dir)))
 
 (define (polygon points blotdiameter)
-  (embedded-ps (list 'polygon points blotdiameter)))
+  (embedded-ps (list 'polygon `(quote ,points) blotdiameter)))
 
 (define (draw-line thick fx fy tx ty)
   (embedded-ps (list 'draw-line thick fx fy tx ty)))