*** empty log message ***

[lilypond.git] / scm / tex.scm

diff --git a/scm/tex.scm b/scm/tex.scm
index 378821ac6d716201339d6ea150fd6466c401e1bf..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)))
@@ -286,15 +286,8 @@
 ;; no-origin not yet supported by Xdvi
 (define (no-origin) "")
 
-(define my-eval-in-module eval)
-
-(if (or (equal? (minor-version) "4.1")
-       (equal? (minor-version) "4")
-       (equal? (minor-version) "3.4"))
-    (set! my-eval-in-module eval-in-module))
-
 (define-public (tex-output-expression expr port)
-  (display (my-eval-in-module expr this-module) port )
+  (display (eval expr this-module) port )
   )