From: David Kastrup <dak@gnu.org>
Date: Mon, 18 Nov 2013 13:59:35 +0000 (+0100)
Subject: parser: allow Scheme expressions for unsigned_number
X-Git-Tag: release/2.19.0-1~129
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=6bace571dd3cd34373f0f21d1a7f0f1a21b80605;p=lilypond.git

parser: allow Scheme expressions for unsigned_number
---

diff --git a/lily/parser.yy b/lily/parser.yy
index 2668cc208b..1ec7578f5b 100644
--- a/lily/parser.yy
+++ b/lily/parser.yy
@@ -3401,6 +3401,15 @@ unsigned_number:
 			$$ = SCM_INUM0;
 		}
 	}
+	| embedded_scm
+	{
+		if (!scm_is_integer ($1)
+		    || scm_is_true (scm_negative_p ($1)))
+		{
+			parser->parser_error (@1, _("not an unsigned integer"));
+			$$ = SCM_INUM0;
+		}
+	}
 	;
 
 exclamations: