parser: let unsigned_number check NUMBER_IDENTIFIER for correctness

diff --git a/lily/parser.yy b/lily/parser.yy
index 944b9aa90ff7dba81fc2804dd2f00bcfd24128ed..b9470614e87bcbff2beb2ec07786e9ac4cefd1da 100644 (file)
--- 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: