parser: allow Scheme expressions for unsigned_number

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