add TODO comment.

[lilypond.git] / scm / output-sketch.scm

diff --git a/scm/output-sketch.scm b/scm/output-sketch.scm
index ad914a92e4a8157ffbc2fe08045205efa254de56..c5fcd6c985cc42ceaf0c011451c17dcb448cf629 100644 (file)
--- a/scm/output-sketch.scm
+++ b/scm/output-sketch.scm
@@ -41,7 +41,6 @@
 ;  (let ((keyword (car expr))) 
 ;    (cond
 ; ((eq? keyword 'beam x y width slope thick)
-; ((eq? keyword 'bezier-bow x y l thick)
 ; ((eq? keyword 'bezier-sandwich x y l thick)
 ; ((eq? keyword 'bracket arch_angle arch_width arch_height  height arch_thick thick)
 ; ((eq? keyword 'char x y i)
@@ -286,10 +285,6 @@ layer('Layer 1',1,1,0,0,(0,0,0))
 (define (invoke-char s i)
   "")
 
-;; TODO: bezier-ending, see ps.scm
-(define (bezier-bow x y l thick)
-  (bezier-sandwich x y l thick))
-
 (define (bezier-sandwich x y l thick)
   (apply
    sketch-beziers (list x y (primitive-eval l) thick)))