Merge branch 'master' of ssh://kylheku.com/git/txr

Conflicts:
	ChangeLog

1 files changed, 1 insertions, 2 deletions

diff --git a/lib.c b/lib.c
index fcbcae15..b2c2f0d5 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)