From: Chris Hanson Date: Tue, 16 Sep 2003 04:32:59 +0000 (+0000) Subject: Fix typo in namespace-prefix parsing. X-Git-Tag: 20090517-FFI~1809 X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=cb0efddf153596abe66c2de3e396a1ff8563b965;p=mit-scheme.git Fix typo in namespace-prefix parsing. --- diff --git a/v7/src/xml/xml-parser.scm b/v7/src/xml/xml-parser.scm index fb795104f..277548c21 100644 --- a/v7/src/xml/xml-parser.scm +++ b/v7/src/xml/xml-parser.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Id: xml-parser.scm,v 1.39 2003/09/15 20:22:49 cph Exp $ +$Id: xml-parser.scm,v 1.40 2003/09/16 04:32:59 cph Exp $ Copyright 2001,2002,2003 Massachusetts Institute of Technology @@ -541,7 +541,7 @@ USA. (%make-xml-name simple (string->symbol uri) (if c - (string->symbol (string-head s (fix:+ c 1))) + (string->symbol (string-tail s (fix:+ c 1))) simple)) simple)))))