* scm/grob-description.scm (all-grob-descriptions): set

[lilypond.git] / lily / command-request.cc

diff --git a/lily/command-request.cc b/lily/command-request.cc
index 9bcd708a0673b4ee4d3680bb6b4177e2de3ef252..9e2e0970ca140533a907021b77aad2211e5fe057 100644 (file)
--- a/lily/command-request.cc
+++ b/lily/command-request.cc
@@ -32,10 +32,10 @@ Key_change_req::transpose (Pitch p)
 
          orig.transpose (p);
 
-         SCM key = gh_cons (gh_int2scm (orig.get_octave ()),
-                            gh_int2scm (orig.notename_));
+         SCM key = gh_cons (scm_int2num (orig.get_octave ()),
+                            scm_int2num (orig.notename_));
 
-         newlist = gh_cons (gh_cons (key, gh_int2scm (orig.alteration_)),
+         newlist = gh_cons (gh_cons (key, scm_int2num (orig.alteration_)),
                             newlist);
        }
       else if (gh_number_p (key))
@@ -43,8 +43,8 @@ Key_change_req::transpose (Pitch p)
          Pitch orig (0, gh_scm2int (key), gh_scm2int (alter));
          orig.transpose (p);
 
-         key =gh_int2scm (orig.notename_);
-         alter = gh_int2scm (orig.alteration_);
+         key =scm_int2num (orig.notename_);
+         alter = scm_int2num (orig.alteration_);
          newlist = gh_cons (gh_cons (key, alter), newlist);
        }
     }