object
val moo_content_rev = ([] : GrafiteMarshal.moo)
val objects = ([] : UriManager.uri list)
- val coercions = CoercDb.empty_coerc_db
val baseuri = b
val ng_mode = (`CommandMode : [`CommandMode | `ProofMode])
method moo_content_rev = moo_content_rev
method set_moo_content_rev v = {< moo_content_rev = v >}
method objects = objects
method set_objects v = {< objects = v >}
- method coercions = coercions
- method set_coercions v = {< coercions = v >}
method baseuri = baseuri
method set_baseuri v = {< baseuri = v >}
method ng_mode = ng_mode;
let add_moo_content cmds status =
let content = status#moo_content_rev in
- let content' =
- List.fold_right
- (fun cmd acc ->
-(* prerr_endline ("adding to moo command: " ^ GrafiteAstPp.pp_command cmd); *)
- match cmd with
- | GrafiteAst.Default _
- | GrafiteAst.Index _
- | GrafiteAst.Coercion _ ->
- if List.mem cmd content then acc
- else cmd :: acc
- | _ -> cmd :: acc)
- cmds content
- in
+ let content' = cmds@content in
(* prerr_endline ("new moo content: " ^ String.concat " " (List.map
GrafiteAstPp.pp_command content')); *)
status#set_moo_content_rev content'