From 2d4c0d05b577400295471bc2cb5881e0d5b5012c Mon Sep 17 00:00:00 2001
From: David Kastrup <dak@gnu.org>
Date: Mon, 18 Nov 2013 14:51:42 +0100
Subject: [PATCH] parser: let unsigned_number check NUMBER_IDENTIFIER for
 correctness

---
 lily/parser.yy | 8 ++++++++
 1 file changed, 8 insertions(+)

diff --git a/lily/parser.yy b/lily/parser.yy
index 0b64957bf8..2668cc208b 100644
--- a/lily/parser.yy
+++ b/lily/parser.yy
@@ -3393,6 +3393,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:
-- 
2.39.5