genjava: It is possible for a (Values (...)) statement to be left lying

around by optimisation passes.  Generate no code for it and move on.

aldor/aldor/src/java/genjava.c

@@ -1443,6 +1443,7 @@ local void gj0SeqGenDefault(GjSeqStore store, Foam foam);
 local void gj0SeqSelectMulti(GjSeqStore store, Foam foam);
 local void gj0SeqIf(GjSeqStore store, Foam foam);
 local void gj0SeqBCall(GjSeqStore store, Foam foam);
+local void gj0SeqValues(GjSeqStore store, Foam foam);
 
 local JavaCode gj0SeqSwitchId();
 
@@ -1535,6 +1536,9 @@ gj0SeqGen(GjSeqStore seqs, Foam foam)
 	case FOAM_Cast:
 		gj0SeqGen(seqs, foam->foamCast.expr);
 		break;
+	case FOAM_Values:
+		gj0SeqValues(seqs, foam);
+		break;
 	default:
 		gj0SeqGenDefault(seqs, foam);
 		break;
@@ -1656,6 +1660,17 @@ gj0SeqBCall(GjSeqStore seqs, Foam foam)
 	gj0SeqStoreAddHalt(seqs, jc);
 }
 
+local void
+gj0SeqValues(GjSeqStore store, Foam foam)
+{
+	int i;
+	for (i=0; i<foamArgc(foam); i++) {
+		FoamTag tag = foamTag(foam->foamValues.argv[i]);
+		if (tag != FOAM_Loc && tag != FOAM_Lex)
+			bug("Odd foam found");
+	}
+}
+
 local void
 gj0SeqGenDefault(GjSeqStore store, Foam foam)
 {