From 028668d2f2604850122fa6ee22bcbc6720910caa Mon Sep 17 00:00:00 2001 From: Kaz Kylheku 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. --- ChangeLog | 5 +++++ lib.c | 3 +-- 2 files changed, 6 insertions(+), 2 deletions(-) diff --git a/ChangeLog b/ChangeLog index e4cf4b98..e9098b07 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,8 @@ +2012-10-30 Kaz Kylheku + + * lib.c (string_lt): Bugfix: wcscmp returns some value less than zero, + not specifically -1. + 2012-10-30 Kaz Kylheku * mpi-patches/config-types: Include the header as "config.h" 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