# HG changeset patch
# User wenzelm
# Date 880655791 -3600
# Node ID a6eb21e100905661d63711646f893aba882bae40
# Parent  03353197410c364a907241c42c6cde907e5d92d2
fixed warning;

diff -r 03353197410c -r a6eb21e10090 src/Pure/unify.ML
--- a/src/Pure/unify.ML	Thu Nov 27 19:36:08 1997 +0100
+++ b/src/Pure/unify.ML	Thu Nov 27 19:36:31 1997 +0100
@@ -631,7 +631,7 @@
 	      [] => Some (foldr add_ffpair (flexflex, (env',[])), reseq)
 	    | dp::frigid' => 
 		if tdepth > !search_bound then
-		    (prs"***Unification bound exceeded\n"; Seq.pull reseq)
+		    (warning "Unification bound exceeded"; Seq.pull reseq)
 		else
 		(if tdepth > !trace_bound then
 		    print_dpairs "Enter MATCH" (env',flexrigid@flexflex)