From: Chris Hanson <org/chris-hanson/cph>
Date: Mon, 23 Feb 2004 20:53:22 +0000 (+0000)
Subject: Use STRING->PARSER-BUFFER rather than WIDE-STRING->PARSER-BUFFER,
X-Git-Tag: 20090517-FFI~1681
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=27d06b2ac7f4f767f1e984211f9e76c4b73853ff;p=mit-scheme.git

Use STRING->PARSER-BUFFER rather than WIDE-STRING->PARSER-BUFFER,
since the former has replaced the latter.
---

diff --git a/v7/src/xml/xml-names.scm b/v7/src/xml/xml-names.scm
index 0b3bedcd6..3a0130fca 100644
--- a/v7/src/xml/xml-names.scm
+++ b/v7/src/xml/xml-names.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: xml-names.scm,v 1.2 2004/02/16 05:50:37 cph Exp $
+$Id: xml-names.scm,v 1.3 2004/02/23 20:53:22 cph Exp $
 
 Copyright 2003,2004 Massachusetts Institute of Technology
 
@@ -105,8 +105,7 @@ USA.
   (eq? (string-is-xml-nmtoken? string) 'NAME))
 
 (define (string-is-xml-nmtoken? string)
-  (let ((buffer
-	 (wide-string->parser-buffer (utf8-string->wide-string string))))
+  (let ((buffer (string->parser-buffer (utf8-string->wide-string string))))
     (let ((check-char
 	   (lambda ()
 	     (match-parser-buffer-char-in-alphabet buffer