Fix the obligatory Stupid Mistake.

original commit: 1ccdc3a60de161cd38e7481c88aa3d8d06ec20ef
2013-09-28 15:28:00 -04:00 · 2013-09-28 15:28:00 -04:00 · 24492f3f9b
commit 24492f3f9b
parent 2ed47f1bbd
1 changed files with 1 additions and 1 deletions
--- a/pkgs/scribble-pkgs/scribble-lib/scribble/html/html.rkt
+++ b/pkgs/scribble-pkgs/scribble-lib/scribble/html/html.rkt
@ -10,7 +10,7 @@
 (provide doctype)
 (define (doctype type)
  (cond [(string? type) (literal "<!DOCTYPE " type ">\n")]
-        [(eq? 'html type)  (doctype type)]
+        [(eq? 'html type) (doctype "html")]
        [(eq? 'xhtml type)
         (list (literal "<?xml version=\"1.0\" encoding=\"utf-8\"?>\n")
               (doctype (string-append