Merge commit 'e63d4d6'

[lilypond.git] / lily / performance-scheme.cc

diff --git a/lily/performance-scheme.cc b/lily/performance-scheme.cc
index a09904e1e7649af84c58d9b7dfcc7e5ef0a3d983..c16c0c375406a60862e548a27089f33cc43792ca 100644 (file)
--- a/lily/performance-scheme.cc
+++ b/lily/performance-scheme.cc
@@ -12,8 +12,8 @@ LY_DEFINE (ly_performance_write, "ly:performance-write",
           2, 0, 0, (SCM performance, SCM filename),
           "Write @var{performance} to @var{filename}")
 {
-  LY_ASSERT_FIRST_TYPE (unsmob_performance, performance);
-  LY_ASSERT_TYPE(scm_is_string, 2);
+  LY_ASSERT_TYPE (unsmob_performance, performance, 1);
+  LY_ASSERT_TYPE (scm_is_string, filename, 2);
 
   unsmob_performance (performance)->write_output (ly_scm2string (filename));
   return SCM_UNSPECIFIED;