author | aspinall |
Fri, 07 May 2004 13:42:08 +0200 | |
changeset 14714 | 38ff9c8a7de0 |
parent 14713 | 6d203f6f0e8d |
child 14715 | 9f75d9c1d677 |
--- a/src/Pure/General/xml.ML Fri May 07 13:40:24 2004 +0200 +++ b/src/Pure/General/xml.ML Fri May 07 13:42:08 2004 +0200 @@ -57,7 +57,7 @@ Elem of string * (string * string) list * tree list | Text of string; -fun attribute (a, x) = a ^ " = " ^ "\"" (text x) "\""; +fun attribute (a, x) = a ^ " = \"" ^ (text x) ^ "\""; fun element name atts cs = let val elem = space_implode " " (name :: map attribute atts) in