parser: let unsigned_number check NUMBER_IDENTIFIER for correctness

[lilypond.git] / lily / parser.yy

diff --git a/lily/parser.yy b/lily/parser.yy
index 0b64957bf8fe2b017e08d653b1dba1a3c1672cd1..2668cc208b487e4cfb9a1a5f51a323a2c5e7bd94 100644 (file)
--- 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: