term_expansion beginnings

2018-09-22 16:25:32 -06:00
parent 908972eff1
commit 4d57989c2b
11 changed files with 86 additions and 37 deletions
--- a/src/prolog/compile.rs
+++ b/src/prolog/compile.rs
@@ -235,6 +235,8 @@ impl ListingCompiler {
                    -> Result<(), SessionError>
    {
        match decl {
+            Declaration::Hook(CompileTimeHook::TermExpansion, clause) =>
+                Ok(wam.add_term_expansion_clause(clause)?),
            Declaration::NonCountedBacktracking(name, arity) =>
                Ok(self.add_non_counted_bt_flag(name, arity)),
            Declaration::Op(op_decl) =>