(map (lambda (x) (eval-string (ly-gulp-file x)))
'("output-lib.scm"
"tex.scm"
- "ps.scm"
+ "ps.scm" "sketch.scm"
"pdf.scm"
"pdftex.scm"
"ascii-script.scm"
))
+(define ctor list)
+
+
+(define (ly-load x) (eval-string (ly-gulp-file x)))
+
(if (not standalone)
- (map (lambda (x) (eval-string (ly-gulp-file x)))
+ (map ly-load
+ ; load-from-path
'("c++.scm"
"grob-property-description.scm"
"translator-property-description.scm"
+ "context-description.scm"
"interface-description.scm"
"beam.scm"
"clef.scm"
)))
+