From 1a3f3799b2f7ca18ee73272befcf912377f145f1 Mon Sep 17 00:00:00 2001
From: Robby Findler <robby@racket-lang.org>
Date: Fri, 16 May 2008 18:35:33 +0000
Subject: [PATCH] minor tweak to about box and fixed executable generation for
 teaching languages

svn: r9866
---
 collects/drscheme/private/app.ss       |  4 ++--
 collects/drscheme/private/help-desk.ss | 16 +++++++-------
 collects/lang/htdp-langs.ss            | 29 ++++++++++++++------------
 3 files changed, 25 insertions(+), 24 deletions(-)

diff --git a/collects/drscheme/private/app.ss b/collects/drscheme/private/app.ss
index 686b6a75ef..34d71ea111 100644
--- a/collects/drscheme/private/app.ss
+++ b/collects/drscheme/private/app.ss
@@ -170,9 +170,9 @@
     (insert-url/external-browser "PLT" "http://www.plt-scheme.org/")
     
     (send* e
-      (insert ".\n")
+      (insert ".\n\n")
       (insert (get-authors))
-      (insert "\nFor licensing information see "))
+      (insert "\n\nFor licensing information see "))
     
     (insert/clickback "our software license"
                       (λ () (help-desk:goto-plt-license)))
diff --git a/collects/drscheme/private/help-desk.ss b/collects/drscheme/private/help-desk.ss
index 4cb4832220..9bd44b2d5e 100644
--- a/collects/drscheme/private/help-desk.ss
+++ b/collects/drscheme/private/help-desk.ss
@@ -1,15 +1,13 @@
 #lang scheme/unit
 
-(require string-constants
-         mred
-         (lib "external.ss" "browser")
-         (lib "bug-report.ss" "help")
-         (lib "buginfo.ss" "help" "private")
+(require scheme/gui/base
+         browser/external
          framework
-         mzlib/class
-         mzlib/list
+         scheme/class
          net/url
-         (lib "search.ss" "help")
+         setup/dirs
+         help/search
+         help/private/buginfo
          "drsig.ss")
 
 (import [prefix drscheme:frame: drscheme:frame^]
@@ -66,7 +64,7 @@
     (super-new)))
 
 (define (goto-plt-license) 
-  '(send-url
+  (send-url
     (url->string
      (path->url (build-path (find-doc-dir) "license" "index.html")))))
 
diff --git a/collects/lang/htdp-langs.ss b/collects/lang/htdp-langs.ss
index 016cb0dec9..3ef5ab4d4f 100644
--- a/collects/lang/htdp-langs.ss
+++ b/collects/lang/htdp-langs.ss
@@ -6,13 +6,13 @@
 
 |#
 
-(module htdp-langs mzscheme
-  (require string-constants
+#lang scheme
+(require string-constants
            framework
-           (prefix et: (lib "stacktrace.ss" "errortrace"))
-           (prefix tr: (lib "stacktrace.ss" "trace"))
+           (prefix-in et: (lib "stacktrace.ss" "errortrace"))
+           (prefix-in tr: (lib "stacktrace.ss" "trace"))
            mzlib/pretty
-           (prefix pc: mzlib/pconvert)
+           (prefix-in pc: mzlib/pconvert)
            mzlib/file
            mzlib/unit
            mzlib/class
@@ -38,8 +38,8 @@
            "run-teaching-program.ss"
            stepper/private/shared
            
-           (only test-engine/scheme-gui make-formatter)
-           (only test-engine/scheme-tests scheme-test-data test-format test-execute)
+           (only-in test-engine/scheme-gui make-formatter)
+           (only-in test-engine/scheme-tests scheme-test-data test-format test-execute)
            (lib "test-display.scm" "test-engine")
            )
   
@@ -439,8 +439,10 @@
                    (create-embedding-executable 
                     exe-name
                     #:modules `((#f ,program-filename))
-                    #:literal-expression `(require ,(filename->require-symbol program-filename))
-                    #:cmdline '("-Zmvq")
+                    #:cmdline `("-l" 
+                                "scheme/base"
+                                "-e"
+                                ,(format "~s" `(#%require ',(filename->require-symbol program-filename))))
                     #:src-filter
                     (λ (path) (cannot-compile? path))
                     #:get-extra-imports
@@ -1025,7 +1027,7 @@
       
       (define (initialize-test-coverage-point key expr)
         (unless (thread-cell-ref current-test-coverage-info)
-          (let ([ht (make-hash-table)])
+          (let ([ht (make-hasheq)])
             (thread-cell-set! current-test-coverage-info ht)
             (let ([rep (drscheme:rep:current-rep)])
               (when rep
@@ -1040,12 +1042,12 @@
                       #f)))))
         (let ([ht (thread-cell-ref current-test-coverage-info)])
           (when ht
-            (hash-table-put! ht key (mcons #f expr)))))
+            (hash-set! ht key (mcons #f expr)))))
       
       (define (test-covered key)
         (let ([ht (thread-cell-ref current-test-coverage-info)])
           (when ht
-            (let ([v (hash-table-get ht key)])
+            (let ([v (hash-ref ht key)])
               (set-mcar! v #t)))))
       
       (define-values/invoke-unit et:stacktrace@
@@ -1403,4 +1405,5 @@
 	   (stepper:show-lambdas-as-lambdas #f)))
         
         (drscheme:get/extend:extend-unit-frame frame-tracing-mixin)
-        (drscheme:get/extend:extend-tab tab-tracing-mixin)))))
+        (drscheme:get/extend:extend-tab tab-tracing-mixin))))
+  
\ No newline at end of file