From 745cbcdfa99fc5b18d7cfae0fc4107ec3d81d9dc Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Wed, 21 Nov 2001 01:27:52 +0000
Subject: [PATCH] Change WELL-FORMED-CODE-POINTS-LIST? to require that the
 argument be a proper list.

---
 v7/src/runtime/unicode.scm | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/v7/src/runtime/unicode.scm b/v7/src/runtime/unicode.scm
index 73cf601ea..20948ccb8 100644
--- a/v7/src/runtime/unicode.scm
+++ b/v7/src/runtime/unicode.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;; $Id: unicode.scm,v 1.1 2001/11/11 05:58:04 cph Exp $
+;;; $Id: unicode.scm,v 1.2 2001/11/21 01:27:52 cph Exp $
 ;;;
 ;;; Copyright (c) 2001 Massachusetts Institute of Technology
 ;;;
@@ -130,7 +130,7 @@
 	(values low '()))))
 
 (define (well-formed-code-points-list? items)
-  (or (not (pair? items))
+  (if (pair? items)
       (and (well-formed-item? (car items))
 	   (let loop ((a (car items)) (items (cdr items)))
 	     (or (not (pair? items))
@@ -139,7 +139,8 @@
 		   (and (well-formed-item? b)
 			(< (if (pair? a) (cdr a) a)
 			   (if (pair? b) (car b) b))
-			(loop b items))))))))
+			(loop b items))))))
+      (null? items)))
 
 (define (well-formed-item? item)
   (if (pair? item)
-- 
2.25.1