correct failing character match in compare_pstr_to_string (#397)

diff --git a/src/prolog/machine/machine_state.rs b/src/prolog/machine/machine_state.rs
index a2849aeb696f303449ed6595b2be38c272460ee8..2194c3c1b54d06065ccc5b6be733a04f28a4aec5 100644 (file)
--- a/src/prolog/machine/machine_state.rs
+++ b/src/prolog/machine/machine_state.rs
@@ -277,7 +277,7 @@ fn compare_pstr_to_string<'a>(
                         s_offset += c1.len_utf8();
                     }
                 } else {
-                    return None;
+                    return Some(s_offset);
                 }
             }
             PStrIteratee::PStrSegment(h, n) => {