From e4c75778d6261575c1f3444186f921c3e511f482 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Wed, 2 Jun 2010 01:44:09 -0700
Subject: [PATCH] Fix thinko in previous change.

---
 src/runtime/chrset.scm | 16 ++++++++--------
 1 file changed, 8 insertions(+), 8 deletions(-)

diff --git a/src/runtime/chrset.scm b/src/runtime/chrset.scm
index 2c39a7fa3..e8f0645ed 100644
--- a/src/runtime/chrset.scm
+++ b/src/runtime/chrset.scm
@@ -206,12 +206,12 @@ USA.
 (define (%canonicalize-scalar-value-list ranges)
   ;; Sort ranges in order, delete empty ranges, then merge adjacent
   ;; ranges.
-  (if (pair? ranges)
-      (let ((ranges
-	     (filter! (lambda (range)
-			(fix:< (%range-start range)
-			       (%range-end range)))
-		      (sort ranges %range<?))))
+  (let ((ranges
+	 (filter! (lambda (range)
+		    (fix:< (%range-start range)
+			   (%range-end range)))
+		  (sort ranges %range<?))))
+    (if (pair? ranges)
 	(let loop
 	    ((start1 (%range-start (car ranges)))
 	     (end1 (%range-end (car ranges)))
@@ -233,8 +233,8 @@ USA.
 			  result)))
 	      (reverse!
 	       (cons (%make-range start1 end1)
-		     result)))))
-      ranges))
+		     result))))
+	ranges)))
 
 (define (%range<? range1 range2)
   (or (fix:< (%range-start range1)
-- 
2.25.1