lucas - fixed bug in changing focus - when moving up and right, if an abs was encountered it would move up an extra time. I also removed the spurious pretty printing function that did nothing.
authordixon
Mon, 15 Aug 2005 21:38:25 +0200
changeset 17044 94d38d9fac40
parent 17043 d3e52c3bfb07
child 17045 e108cd5b6986
lucas - fixed bug in changing focus - when moving up and right, if an abs was encountered it would move up an extra time. I also removed the spurious pretty printing function that did nothing.
src/Pure/IsaPlanner/focus_term_lib.ML
--- a/src/Pure/IsaPlanner/focus_term_lib.ML	Wed Aug 10 15:29:56 2005 +0200
+++ b/src/Pure/IsaPlanner/focus_term_lib.ML	Mon Aug 15 21:38:25 2005 +0200
@@ -122,7 +122,6 @@
 
      (* analysis *)
      val upsize_of_fcterm : FcTerm -> int
-     val pretty_fcterm : FcTerm -> Pretty.T
 end;
 
 
@@ -293,7 +292,7 @@
   fun focus_up_abs_or_appr (focus(t, appl(l,m))) = NONE
     | focus_up_abs_or_appr (focus(t, appr(r,m))) = SOME (focus(t$r, m))
     | focus_up_abs_or_appr (focus(t, abs(s,ty,m))) = 
-      SOME (focus_up (focus(Abs(s,ty,t), m)))
+      SOME (focus(Abs(s,ty,t), m))
     | focus_up_abs_or_appr (focus(t, root)) = NONE;
 
 
@@ -338,11 +337,8 @@
       Seq.cons (botleft, (Seq.make (next_leaf_of_fcterm_seq_aux botleft)) )
     end;
 
-
   fun upsize_of_fcterm (focus(t, ut)) = upsize_of_upterm ut;
 
-  fun pretty_fcterm ft = Pretty.str "no yet implemented";
-
 end; (* local *)
 
 end; (* functor *)