From: Mark Thom <markjordanthom@gmail.com>
Date: Sun, 27 Mar 2022 03:44:37 +0000 (-0600)
Subject: fix char comparison misordering (#1371)
X-Git-Tag: v0.9.1~93
X-Git-Url: https://git.sagredo.dev/?a=commitdiff_plain;h=83def95383dfe57dd10c108b97debae7211bb65e;p=scryer-prolog.git

fix char comparison misordering (#1371)
---

diff --git a/src/machine/partial_string.rs b/src/machine/partial_string.rs
index 0e25d7b5..7cf96c7d 100644
--- a/src/machine/partial_string.rs
+++ b/src/machine/partial_string.rs
@@ -622,7 +622,7 @@ pub fn compare_pstr_prefixes<'a>(
 
                         if let Some(c1) = pstr.as_str_from(n).chars().next() {
                             if c1 != c2 {
-                                return PStrCmpResult::Ordered(c2.cmp(&c1));
+                                return PStrCmpResult::Ordered(c1.cmp(&c2));
                             }
 
                             let n1 = n + c1.len_utf8();