[MLton] cvs commit: fixed strange

[Matthew Fluet]

>  	     | Offset {base, offset, ty} =>
> -		  M.Operand.Offset {base = translateOperand base,
> -				    offset = offset,
> -				    ty = ty}
> +		  let
> +		     val base = translateOperand base
> +		  in
> +		     if M.Operand.isLocation base
> +			then M.Operand.Offset {base = base,
> +					       offset = offset,
> +					       ty = ty}
> +		     else M.Operand.bogus ty
> +		  end

This doesn't shed much light on why the situation arose or whether or not
something upstream went wrong.