From 27d06b2ac7f4f767f1e984211f9e76c4b73853ff Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Mon, 23 Feb 2004 20:53:22 +0000 Subject: [PATCH] Use STRING->PARSER-BUFFER rather than WIDE-STRING->PARSER-BUFFER, since the former has replaced the latter. --- v7/src/xml/xml-names.scm | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) 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 -- 2.25.1