diff options
| author | Han-Wen Nienhuys <hanwen@xs4all.nl> | 2006-04-07 01:05:57 +0000 |
|---|---|---|
| committer | Han-Wen Nienhuys <hanwen@xs4all.nl> | 2006-04-07 01:05:57 +0000 |
| commit | bcaa3cce66632e4b428e11cef6cbbad3a8edaad2 (patch) | |
| tree | 5619b83e12de47335d5689d7a71e8c2b29b97752 /scm/lily.scm | |
| parent | 3b9dcc5a6e3b85d099936c8dd585040fe211c3ef (diff) | |
(Generic_prefix_music_scm): append lists, not objects.
Diffstat (limited to 'scm/lily.scm')
| -rw-r--r-- | scm/lily.scm | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/scm/lily.scm b/scm/lily.scm index db729e6567..9ded6f526e 100644 --- a/scm/lily.scm +++ b/scm/lily.scm @@ -161,6 +161,7 @@ similar to chord syntax") (define (type-check-list location signature arguments) "Typecheck a list of arguments against a list of type predicates. Print a message at LOCATION if any predicate failed." + (define (recursion-helper signature arguments count) (define (helper pred? arg count) (if (not (pred? arg)) @@ -178,6 +179,7 @@ predicates. Print a message at LOCATION if any predicate failed." #t (and (helper (car signature) (car arguments) count) (recursion-helper (cdr signature) (cdr arguments) (1+ count))))) + (recursion-helper signature arguments 1)) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |