[m-dev.] diff: move defn_is_* to ml_util.m

[Fergus Henderson]

On 11-Jan-2001, Peter Ross <peter.ross at miscrit.be> wrote:
> On Fri, Jan 12, 2001 at 12:37:12AM +1100, Fergus Henderson wrote:
> > +++ compiler/ml_util.m	2001/01/11 13:30:52
> 
> > + 
> > +:- func this_file = string.
> > +this_file = "mlds_to_gcc.m".
> 
> This looks a bit strange to me, are you sure you meant to include it.

Sorry, no -- I'm sure I *didn't* mean to include it.
Thanks for picking that up.  Fixed.

----------

Estimated hours taken: 0.1

compiler/ml_util.m:
	Delete a bogus definition of `this_file' which I
	somehow managed to include in my previous change.

Workspace: /home/pgrad/fjh/ws/gcc/mercury
Index: compiler/ml_util.m
===================================================================
RCS file: /home/mercury1/repository/mercury/compiler/ml_util.m,v
retrieving revision 1.4
diff -u -d -r1.4 ml_util.m
--- compiler/ml_util.m	2001/01/11 13:37:59	1.4
+++ compiler/ml_util.m	2001/01/11 13:46:10
@@ -225,8 +225,3 @@
 	access(Flags) \= private.
 
 %-----------------------------------------------------------------------------%
- 
-:- func this_file = string.
-this_file = "mlds_to_gcc.m".
-
-%-----------------------------------------------------------------------------%

-- 
Fergus Henderson <fjh at cs.mu.oz.au>  |  "I have always known that the pursuit
                                    |  of excellence is a lethal habit"
WWW: <http://www.cs.mu.oz.au/~fjh>  |     -- the last words of T. S. Garp.
--------------------------------------------------------------------------
mercury-developers mailing list
Post messages to:       mercury-developers at cs.mu.oz.au
Administrative Queries: owner-mercury-developers at cs.mu.oz.au
Subscriptions:          mercury-developers-request at cs.mu.oz.au
--------------------------------------------------------------------------