From: Chris Hanson <org/chris-hanson/cph>
Date: Sat, 27 Oct 2018 05:19:58 +0000 (-0700)
Subject: Fix thinko.
X-Git-Tag: mit-scheme-pucked-10.1.2~16^2~138^2~4
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=3bcae6c7531a4d6ce27a0d6341e79edb44768a54;p=mit-scheme.git

Fix thinko.
---

diff --git a/src/xml/xml-struct.scm b/src/xml/xml-struct.scm
index 2e3663224..ef8a3117d 100644
--- a/src/xml/xml-struct.scm
+++ b/src/xml/xml-struct.scm
@@ -596,9 +596,9 @@ USA.
 
 (define (nmtokens->string nmtokens)
   (let ((builder (string-builder)))
-    (for-each (lambda (nmtokens)
+    (for-each (lambda (nmtoken)
 		(if (not (builder 'empty?))
 		    (builder #\space))
-		(builder (symbol->string (car nmtokens))))
+		(builder (symbol->string nmtoken)))
 	      nmtokens)
     (builder)))
\ No newline at end of file