symbol keys

Author: rfindler

drracket-core-lib/drracket/private/frame.rkt

@@ -775,7 +775,7 @@
              (call-read-language irl
                                  'documentation-language-family
                                  (hash)))
-           (hash-ref ht "doc-language-name" default-lang-name)]
+           (hash-ref ht 'doc-language-name default-lang-name)]
           [else default-lang-name]))
       (format (string-constant x-documentation) lang-name))
     (new menu-item%
@@ -787,8 +787,8 @@
          [callback (λ (item evt)
                      (define irl (maybe-get-irl))
                      (define ht (call-read-language irl 'documentation-language-family (hash)))
-                     (help:help-desk #:sub (hash-ref ht "doc-path" "index.html")
-                                     #:query-table (hash-ref ht "doc-query" (hash)))
+                     (help:help-desk #:sub (hash-ref ht 'doc-path "index.html")
+                                     #:query-table (hash-ref ht 'doc-query (hash)))
                      #t)]))
 
   (define (drracket-help-menu:after-about menu dlg-parent)
@@ -830,8 +830,8 @@
                               'documentation-language-family
                               (hash))
           (hash)))
-    (values (hash-ref ht "doc-query" (hash))
-            (hash-ref ht "doc-path" "index.html"))))
+    (values (hash-ref ht 'doc-query (hash))
+            (hash-ref ht 'doc-path "index.html"))))
 
 
 (require (submod "." add-racket-to-path)

drracket-core-lib/drracket/private/in-irl-namespace.rkt

@@ -247,12 +247,12 @@
                                                string?)))))]
     [(documentation-language-family)
      (hash/dc
-      [key string?]
+      [key symbol?]
       [val (key)
            (case key
-             [("doc-language-name") string?]
-             [("doc-path") path-string?]
-             [("doc-query") (hash/c string? string? #:immutable #t)]
+             [(doc-language-name) string?]
+             [(doc-path) path-string?]
+             [(doc-query) (hash/c symbol? string? #:immutable #t)]
              [else any/c])]
       #:immutable #t)]
     [else

drracket-core/scribblings/tools/lang-tools.scrbl

@@ -591,12 +591,12 @@ find a prefix and extract the subsequent name:
  This is the contract:
  @racketblock[
  (hash/dc
-  [key string?]
+  [key symbol?]
   [val (key)
    (case key
-     [("doc-language-name") string?]
-     [("doc-path") path-string?]
-     [("doc-query") (hash/c string? string? #:immutable #t)]
+     [(doc-language-name) string?]
+     [(doc-path) path-string?]
+     [(doc-query) (hash/c symbol? string? #:immutable #t)]
      [else any/c])]
   #:immutable #t)
  ]