prepare to add project_attributes/2 and attribute_goals/2

2019-02-13 14:18:41 -07:00
parent 7edc2567a8
commit f616b4ddfd
14 changed files with 163 additions and 36 deletions
--- a/src/prolog/write.rs
+++ b/src/prolog/write.rs
@@ -134,6 +134,8 @@ impl fmt::Display for CompareTermQT {
 impl fmt::Display for ClauseType {
    fn fmt(&self, f: &mut fmt::Formatter) -> fmt::Result {
        match self {
+            &ClauseType::System(SystemClauseType::SetCutPoint(r)) =>
+                write!(f, "$set_cp({})", r),
            &ClauseType::Named(ref name, ref idx) | &ClauseType::Op(OpDecl(.., ref name), ref idx) =>
            {
                let idx = idx.0.borrow();