trivial diff: fix a typo in trace.m

[Zoltan Somogyi]

I have already committed this.

Fix a problem that would have caused problems with the shallow tracing
of model_non procedures.

compiler/trace.m:
	Fix a typo that would cause the compiled code and the runtime to
	disagree on which slot in a shallow traced procedure has the saved
	from-full flag.

Zoltan.

Index: trace.m
===================================================================
RCS file: /home/mercury1/repository/mercury/compiler/trace.m,v
retrieving revision 1.13
diff -u -u -r1.13 trace.m
--- trace.m	1998/10/23 00:40:24	1.13
+++ trace.m	1998/11/15 11:34:45
@@ -249,14 +249,14 @@
 		%
 		% Debugger code in the runtime is not interested in the
 		% call-from-full flag, so does not have to be in a fixed slot.
-		% Even if we put in a fixed slot, the runtime won't know
+		% Even if we put it in a fixed slot, the runtime won't know
 		% whether a procedure has interface or full tracing, and so it
 		% wouldn't know whether the slot was used for this purpose
 		% or not.
 		( CodeModel = model_non ->
 			( TraceRedo = yes ->
 				CallFromFullSlot = framevar(5),
-				MaybeFromFullSlot = yes(4)
+				MaybeFromFullSlot = yes(5)
 			;
 				CallFromFullSlot = framevar(4),
 				MaybeFromFullSlot = yes(4)