From: David Kastrup <dak@gnu.org>
Date: Mon, 18 Nov 2013 13:51:42 +0000 (+0100)
Subject: parser: let unsigned_number check NUMBER_IDENTIFIER for correctness
X-Git-Tag: release/2.17.96-1~6
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=1acd3c7072c99ac715ccea305f2198c13c789b40;p=lilypond.git

parser: let unsigned_number check NUMBER_IDENTIFIER for correctness
---

diff --git a/lily/parser.yy b/lily/parser.yy
index 944b9aa90f..b9470614e8 100644
--- a/lily/parser.yy
+++ b/lily/parser.yy
@@ -3340,6 +3340,14 @@ bare_number_closed:
 unsigned_number:
 	UNSIGNED
 	| NUMBER_IDENTIFIER
+	{
+		if (!scm_is_integer ($1)
+		    || scm_is_true (scm_negative_p ($1)))
+		{
+			parser->parser_error (@1, _("not an unsigned integer"));
+			$$ = SCM_INUM0;
+		}
+	}
 	;
 
 exclamations: