add clean errors for read, re: #45

2018-08-26 20:34:43 -06:00
parent 5afa4a7848
commit 92e338861d
2 changed files with 25 additions and 3 deletions
--- a/src/prolog/machine/machine_state.rs
+++ b/src/prolog/machine/machine_state.rs
@@ -601,9 +601,13 @@ pub(crate) trait CallPolicy: Any {
                        let addr = reader.machine_st[temp_v!(1)].clone();
                        reader.machine_st.unify(addr, Addr::HeapCell(offset));
                    },
-                    Err(err) => {
-                        println!("{:?}", err);
-                        reader.machine_st.fail = true;
+                    Err(_) => {
+                        // 8.14.1.3 k)-l)
+                        let stub = MachineError::functor_stub(clause_name!("read"), 1);
+                        let err  = MachineError::syntax_error(SyntaxError::ImpDepAtom);
+                        let err  = reader.machine_st.error_form(err, stub);
+                        
+                        return Err(err);
                    }
                };