From 6bace571dd3cd34373f0f21d1a7f0f1a21b80605 Mon Sep 17 00:00:00 2001
From: David Kastrup <dak@gnu.org>
Date: Mon, 18 Nov 2013 14:59:35 +0100
Subject: [PATCH] parser: allow Scheme expressions for unsigned_number

---
 lily/parser.yy | 9 +++++++++
 1 file changed, 9 insertions(+)

diff --git a/lily/parser.yy b/lily/parser.yy
index 2668cc208b..1ec7578f5b 100644
--- 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:
-- 
2.39.2