fix keysort error detection bugs

2018-05-02 21:52:34 -06:00
parent 3c72441f68
commit d69bc4ed10
2 changed files with 7 additions and 5 deletions
--- a/src/prolog/machine/machine_state_impl.rs
+++ b/src/prolog/machine/machine_state_impl.rs
@@ -1716,7 +1716,7 @@ impl MachineState {
                        HeapCellValue::Addr(Addr::Con(Constant::EmptyList)) =>
                            break,
                        hcv =>
-                            return Err(self.type_error(ValidType::List, hcv.as_addr(l)))
+                            return Err(self.type_error(ValidType::List, a1))
                    };
                }