use |How to Design Programs| from htdp-lib instead of the string constant

Author: rfindler

drracket/drracket/private/app.rkt

@@ -7,6 +7,7 @@
          browser/external
          setup/getinfo
          drracket/private/drsig
+         lang/htdp-langs-save-file-prefix
          "../acks.rkt"
          "frame-icon.rkt"
          pict/snip pict)
@@ -362,7 +363,7 @@
                  (send-url url)))))])
     (add (string-constant plt-homepage) "http://racket-lang.org/")
     (add (string-constant pbd-homepage) "http://programbydesign.org/")
-    (add (string-constant how-to-design-programs) "http://htdp.org/")
+    (add |How to Design Programs| "http://htdp.org/")
 
     (for-each (λ (tool)
                 (cond [(drracket:tools:successful-tool-url tool) 

drracket/drracket/private/language-configuration.rkt

@@ -21,6 +21,7 @@
          syntax/toplevel
          browser/external
          mrlib/panel-wob
+         lang/htdp-langs-save-file-prefix
          (only-in mzlib/struct make-->vector)
 
          ;; ensure that this module is always loaded since it is shared below for pretty big
@@ -2347,9 +2348,9 @@
                       (find-relevant-directories '(textbook-pls get-textbook-pls))))
           (λ (x y)
             (cond
-              [(string=? (cadr x) (string-constant how-to-design-programs))
+              [(string=? (cadr x) |How to Design Programs|)
                #t]
-              [(string=? (string-constant how-to-design-programs) (cadr y))
+              [(string=? |How to Design Programs| (cadr y))
                #f]
               [else
                (string<=? (cadr x) (cadr y))])))))

drracket/info.rkt

@@ -32,7 +32,7 @@
                ["macro-debugger" #:version "1.1"]
                "net-lib"
                "tex-table"
-               "htdp-lib"
+               ["htdp-lib" #:version "1.7"]
                ("drracket-plugin-lib" #:version "1.1")
                "gui-pkg-manager-lib"
                "drracket-tool-lib"