release: 1.1.18

[lilypond.git] / scm / lily.scm

diff --git a/scm/lily.scm b/scm/lily.scm
index 4aa093e81809d9fded7064698a7fe52ff684b8a0..2b7c61bb4619b3bfb11f4f7378765da6cde883c6 100644 (file)
--- a/scm/lily.scm
+++ b/scm/lily.scm
@@ -156,7 +156,9 @@
   (define (invoke-dim1 s d)
     (string-append
      "\n\\" s "{" (number->dim d) "}"))
-
+  (define (pt->sp x)
+    (* 65536 x))
+  
   ;;
   ;; need to do something to make this really safe.
   ;;
@@ -171,7 +173,7 @@
 
   (define (number->dim x)
     (string-append 
-     (number->string (chop-decimal x)) "pt "))
+     (number->string  (chop-decimal x)) "pt "))
 
   (define (placebox x y s) 
     (string-append