;;;
;;;
;;;
-;;; Copyright (C) 2005--2011 Nicolas Sceaux <nicolas.sceaux@free.fr>
+;;; Copyright (C) 2005--2012 Nicolas Sceaux <nicolas.sceaux@free.fr>
;;;
;;; - This file defines the procedures used to define display methods for each
(define* (tweaks->lily-string expr #:optional (post-event? #f))
(format #f "~{~a ~}"
(map (lambda (tweak)
- (format #f "~a\\tweak #'~a #~a"
+ (format #f "~a\\tweak ~a #~a"
(if post-event? "-" "")
- (car tweak)
+ (if (pair? (car tweak))
+ (format #f "~a #'~a"
+ (caar tweak) (cdar tweak))
+ (format #f "#'~a" (car tweak)))
(scheme-expr->lily-string (cdr tweak))))
(ly:music-property expr 'tweaks))))