trivial diff: deforest.m typo

[Simon Taylor]

Estimated hours taken: 0.1

compiler/deforest.m:
	Fix an incorrectly numbered variable.

Index: deforest.m
===================================================================
RCS file: /home/staff/zs/imp/mercury/compiler/deforest.m,v
retrieving revision 1.7
diff -u -t -u -r1.7 deforest.m
--- deforest.m	1998/11/03 05:59:14	1.7
+++ deforest.m	1998/11/04 04:06:22
@@ -889,7 +889,7 @@
                         { predicate_name(ModuleInfo, PredId, PredName) },
                         pd_debug__message("\nCreated predicate %s\n", 
                                 [s(PredName)]),
-                        { CalledPreds = [proc(PredId1, ProcId2),
+                        { CalledPreds = [proc(PredId1, ProcId1),
                                         proc(PredId2, ProcId2)] },
                         pd_info_get_parent_versions(Parents0),