throw exception when call-ing a system instruction.

2018-05-10 23:08:56 -06:00
parent 910bafef61
commit ba7e7ac895
10 changed files with 122 additions and 122 deletions
--- a/src/prolog/machine/system_calls.rs
+++ b/src/prolog/machine/system_calls.rs
@@ -165,10 +165,10 @@ impl MachineState {
                match a2 {
                    Addr::Con(Constant::Usize(bp)) =>
                        if self.b <= bp + 1 {
-                            let a2 = Addr::Con(atom!("!", self.atom_tbl));
+                            let a2 = Addr::Con(atom!("!"));
                            self.unify(a1, a2);
                        } else {
-                            let a2 = Addr::Con(atom!("true", self.atom_tbl));
+                            let a2 = Addr::Con(atom!("true"));
                            self.unify(a1, a2);
                        },
                    _ => self.fail = true