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.17.96-1~5
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=c306a853e5a902af7f835719e2a11121b4e15bdc;p=lilypond.git

parser: allow Scheme expressions for unsigned_number
---

diff --git a/lily/parser.yy b/lily/parser.yy
index b9470614e8..1bab8b14fd 100644
--- a/lily/parser.yy
+++ b/lily/parser.yy
@@ -3348,6 +3348,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: