parser: allow Scheme expressions for unsigned_number

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