Fix the obligatory Stupid Mistake.

2013-09-28 15:28:00 -04:00 · 2013-09-28 15:28:00 -04:00 · 1ccdc3a60d
commit 1ccdc3a60d
parent ab0cde405a
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