From 028668d2f2604850122fa6ee22bcbc6720910caa Mon Sep 17 00:00:00 2001
From: Kaz Kylheku <kaz@kylheku.com>
Date: Tue, 30 Oct 2012 16:07:09 -0700
Subject: * lib.c (string_lt): Bugfix: wcscmp returns some value less than
 zero, not specifically -1.

---
 lib.c | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

(limited to 'lib.c')

diff --git a/lib.c b/lib.c
index 89a38496..2c3ddff4 100644
--- a/lib.c
+++ b/lib.c
@@ -2092,8 +2092,7 @@ val trim_str(val str)
 
 val string_lt(val astr, val bstr)
 {
-  int cmp = wcscmp(c_str(astr), c_str(bstr));
-  return cmp == -1 ? t : nil;
+  return wcscmp(c_str(astr), c_str(bstr)) < 0 ? t : nil;
 }
 
 val int_str(val str, val base)
-- 
cgit v1.2.3