From: fred <fred>
Date: Sun, 22 Dec 1996 20:33:42 +0000 (+0000)
Subject: lilypond-0.0.20
X-Git-Tag: release/1.5.59~6499
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=f870726753505391f62f8801ec82a66d83f919a2;p=lilypond.git

lilypond-0.0.20
---

diff --git a/src/parser.y b/src/parser.y
index bc38c27e14..402bc95f74 100644
--- a/src/parser.y
+++ b/src/parser.y
@@ -437,7 +437,7 @@ pitch_list:			{
 int:
 	REAL			{
 		$$ = int($1);
-		if (ABS($1-Real(int($$))) > 1e-8)
+		if ( distance($1,Real(int($$)) ) > 1e-8)
 			error("expecting integer number");
 	}
 	| INT