From 8070ef6b831ac4da4bd4881cded96b1af2ccadfc Mon Sep 17 00:00:00 2001 From: Patrick McCarty Date: Thu, 8 Jul 2010 13:34:30 -0700 Subject: [PATCH] Fix #1177. Transposing a clef by interval "0" leads to incorrect output, and it does not make logical sense. This commit prevents the transposition from being "0" and fixes the output. --- scm/parser-clef.scm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/scm/parser-clef.scm b/scm/parser-clef.scm index 2f17701d46..757a1876de 100644 --- a/scm/parser-clef.scm +++ b/scm/parser-clef.scm @@ -113,7 +113,7 @@ (let ((e '()) (c0 0) (oct 0) - (match (string-match "^(.*)([_^])([0-9]+)$" clef-name))) + (match (string-match "^(.*)([_^])([1-9][0-9]*)$" clef-name))) (if match (begin (set! clef-name (match:substring match 1)) -- 2.39.2