anchor.diff:                let vname, vtok_opt, env = new_term_constant_and_tok_from_lid_maybe_thunked env lid arity thunked in
                 let get_vtok () = Option.get vtok_opt in
                 let vtok_tm =
  -                    match formals, vtok_opt with
  -                    | [], _ when not thunked -> mkFreeV <| mk_fv (vname, Term_sort)
  -                    | _ when thunked -> mkApp(vname, [dummy_tm])
  +                    match formals with
  +                    | [] when not thunked -> mkFreeV <| mk_fv (vname, Term_sort)
  +                    | [] when thunked -> mkApp(vname, [dummy_tm])
                       | _ -> mkApp(get_vtok(), []) //not thunked
                 in
                 let vtok_app = mk_Apply vtok_tm vars in
  
positive.code:                       decls2@[tok_typing], push_free_var env lid arity vname (Some <| mkFreeV (mk_fv (vname, Term_sort)))
  
                      | _ when thunked ->
                        decls2, env
  
                      | _ ->
                       (* Generate a token and a function symbol;
  
negative.code: 
                      | _ -> false
                  in
                  //Do not thunk ...
                  lid.nsstr <> "Prims"  //things in prims
                  && not (quals |> List.contains Logic) //logic qualified terms
  