allow set_prolog_flag in declarations

2020-02-28 21:42:22 -07:00
parent 934f73f696
commit aa5f186a96
5 changed files with 38 additions and 4 deletions
--- a/src/prolog/machine/compile.rs
+++ b/src/prolog/machine/compile.rs
@@ -968,6 +968,10 @@ impl ListingCompiler {
            Declaration::Op(op_decl) => {
                self.submit_op(wam, indices, &op_decl)
            }
+            Declaration::SetPrologFlag(dbl_quotes) => {
+                wam.machine_st.flags.double_quotes = dbl_quotes;
+                Ok(())
+            }
            Declaration::UseModule(ModuleSource::Library(name)) => {
                let name = if !wam.indices.modules.contains_key(&name) {
                    load_library(wam, name, true)?