anchor.diff:          ]
       // Nothing special, just check the depth
       | _ ->
  -        yesno <| cfg.delta_level |> BU.for_some (function
  +        log_unfolding cfg (fun () -> BU.print3 ">>> Reached a %s with delta_depth = %s\n >> Our delta_level is %s\n"
  +                                               (Print.fv_to_string fv)
  +                                               (Print.delta_depth_to_string fv.fv_delta)
  +                                               (FStar.Common.string_of_list Env.string_of_delta_level cfg.delta_level));
  +        yesno <| (cfg.delta_level |> BU.for_some (function
                | Env.UnfoldTac
                | NoDelta -> false
                | Env.Inlining
                | Eager_unfolding_only -> true
  -             | Unfold l -> Common.delta_depth_greater_than fv.fv_delta l)
  -    in
  -    log cfg (fun () -> BU.print3 ">>> For %s (%s), unfolding res = %s\n"
  +             | Unfold l -> Common.delta_depth_greater_than fv.fv_delta l))
  +    in
  +    log_unfolding cfg (fun () -> BU.print3 ">>> For %s (%s), unfolding res = %s\n"
                       (Print.fv_to_string fv)
                       (Range.string_of_range rng)
                       (string_of_res res));
  
positive.code:     | _, Some _, _, _
      | _, _, Some _, _
      | _, _, _, Some _ ->
          comb_or [
           (match cfg.steps.unfold_only with
            | None -> yes
  
negative.code: 
  let log_primops cfg f =
      if cfg.debug.primop then f () else ()
  
  let log_unfolding cfg f =
      if cfg.debug.unfolding then f () else ()
  
  let is_empty = function
      | [] -> true
  