From 9e43c4e7a77487172176120682b43cd2aa00df06 Mon Sep 17 00:00:00 2001 From: Jay McCarthy Date: Mon, 14 Sep 2009 18:38:23 +0000 Subject: [PATCH] Fixing doc bug svn: r16006 --- collects/xml/plist.ss | 6 ++---- 1 file changed, 2 insertions(+), 4 deletions(-) diff --git a/collects/xml/plist.ss b/collects/xml/plist.ss index 0429a3a32e..c0ae6bc9f8 100644 --- a/collects/xml/plist.ss +++ b/collects/xml/plist.ss @@ -126,10 +126,8 @@ (write-xml (make-document (make-prolog (list (make-p-i #f #f 'xml "version=\"1.0\" encoding=\"UTF-8\"")) (make-document-type 'plist - (if (eq? (system-type) 'macosx) - (make-external-dtd/system - "file://localhost/System/Library/DTDs/PropertyList.dtd") - #f) + (make-external-dtd/system + "http://www.apple.com/DTDs/PropertyList-1.0.dtd") #f) empty) (xexpr->xml `(plist ((version "0.9"))