;;;; (c) 1998--2001 Jan Nieuwenhuizen <janneke@gnu.org>
;;;; Han-Wen Nienhuys <hanwen@cs.uu.nl>
-;;; Library funtions
+;;; Library functions
(use-modules (ice-9 regex))
;;; Un-assorted stuff
;; URG guile-1.4/1.4.x compatibility
-(define (ly-eval x) (eval2 x #f))
+(if (not (defined? 'primitive-eval))
+ (define (primitive-eval form)
+ (eval2 form #f)))
(define (sign x)
(if (= x 0)
(cons (car list) rest)
rest))))
+(define (filter-out-list pred? list)
+ "return that part of LIST for which PRED is true."
+ (if (null? list) '()
+ (let* ((rest (filter-list pred? (cdr list))))
+ (if (not (pred? (car list)))
+ (cons (car list) rest)
+ rest))))
+
(define (uniqued-alist alist acc)
(if (null? alist) acc
(if (assoc (caar alist) acc)
(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"
)))
+