# HG changeset patch
# User j.forth <j.forth@gold.ac.uk>
# Date 1230944092 0
# Node ID aa2b33f83ac69c9a30cecae468eaf30db3e1f4be
# Parent  03be243f9003818d761d865f0b270b79e2878095
fix middle-c diatonic-pitch method

darcs-hash:20090103005452-16a00-53c8ce96af2ff8f77aeec5ccbbcf74d0ccc3c965.gz

diff -r 03be243f9003 -r aa2b33f83ac6 base/methods.lisp
--- a/base/methods.lisp	Mon Nov 03 12:41:42 2008 +0000
+++ b/base/methods.lisp	Sat Jan 03 00:54:52 2009 +0000
@@ -34,7 +34,7 @@
   (elt (asa-pitch-string mp) 0))
 
 (defmethod middle-c ((mp diatonic-pitch))
-  (make-diatonic-pitch 39 23))
+  (make-diatonic-pitch #\C 0 4))
 
 (defmethod midi-pitch-number ((mp diatonic-pitch))
   (+ (%p-pc mp) 21))