X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ian/git?a=blobdiff_plain;f=compute;h=9e5e8ba0d78437704e5a656c10530889aaef80e6;hb=edc4d0c340cdacbed8a4ae9eb2346bead325045c;hp=61c0350e72e726a84b6c9b8170372148ec528430;hpb=31ff27e2177fc9e7cc5fbca3a63f844febb19a18;p=appendix-a6.git

diff --git a/compute b/compute
index 61c0350..9e5e8ba 100755
--- a/compute
+++ b/compute
@@ -39,7 +39,7 @@ while (<>) {
     next if m/^\s*\#/;
     next unless m/\S/;
     next if m/^\s/;
-    if (m/^([A-Z]+)\s*\=\s*(\S.*)$/) {
+    if (m/^([A-Z0-9]+)\s*\=\s*(\S.*)$/) {
 	my ($choname, $desc) = ($1,$2);
 	my $cho = addchoice($choname, Desc => $desc);
 	if ($desc =~ m/\[(\d+):(\d+)\]/) {