;;;; c++.scm -- implement Scheme frontends to C++ functions
;;;;
;;;; source file of the GNU LilyPond music typesetter
-;;;;
-;;;; (c) 1998--2008 Jan Nieuwenhuizen <janneke@gnu.org>
+;;;;
+;;;; (c) 1998--2009 Jan Nieuwenhuizen <janneke@gnu.org>
;;;; Han-Wen Nienhuys <hanwen@xs4all.nl>
;;; Note: this file can't be used without LilyPond executable
(define-public (string-or-pair? x)
(or (string? x) (pair? x)))
+(define-public (cheap-list? x)
+ (or (pair? x) (null? x)))
+
+(define-public (list-or-symbol? x)
+ (or (cheap-list? x) (symbol? x)))
+
(define-public (scheme? x) #t)
;; moved list to end of lily.scm: then all type-predicates are
;; defined.
-(define type-p-name-alist '())
+(define type-p-name-alist '())
(define (match-predicate obj alist)
(if (null? alist)