From 91973b0c37291a8ec08c16491f98e725da9bc4dd Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Thu, 2 Aug 2007 04:37:36 +0000
Subject: [PATCH] Fix bug: hex-encoded string escapes were missing leading u/U.

---
 v7/src/xml/rdf-nt.scm | 10 +++++++---
 1 file changed, 7 insertions(+), 3 deletions(-)

diff --git a/v7/src/xml/rdf-nt.scm b/v7/src/xml/rdf-nt.scm
index 87276789b..d8b1e8769 100644
--- a/v7/src/xml/rdf-nt.scm
+++ b/v7/src/xml/rdf-nt.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: rdf-nt.scm,v 1.13 2007/08/01 00:13:33 cph Exp $
+$Id: rdf-nt.scm,v 1.14 2007/08/02 04:37:36 cph Exp $
 
 Copyright (C) 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993, 1994,
     1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005,
@@ -253,8 +253,12 @@ USA.
 	      (cond ((fix:= n #x9) (write-char #\t port))
 		    ((fix:= n #xA) (write-char #\n port))
 		    ((fix:= n #xD) (write-char #\r port))
-		    ((fix:< n #x10000) (write-hex n 4 port))
-		    (else (write-hex n 8 port))))))))
+		    ((fix:< n #x10000)
+		     (write-char #\u port)
+		     (write-hex n 4 port))
+		    (else
+		     (write-char #\U port)
+		     (write-hex n 8 port))))))))
 
 (define (write-hex n digits port)
   (let loop ((n n) (m (expt 16 digits)))
-- 
2.25.1