suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

minor tweak to about box and fixed executable generation for teaching languages

Browse Source 
svn: r9866
This commit is contained in:
Robby Findler 2008-05-16 18:35:33 +00:00
parent 14b71ac83e
commit 1a3f3799b2
3 changed files with 25 additions and 24 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/drscheme/private/app.ss
View File

@ -170,9 +170,9 @@
(insert-url/external-browser "PLT" "http://www.plt-scheme.org/") (insert-url/external-browser "PLT" "http://www.plt-scheme.org/")
(send* e (send* e
(insert ".\n") (insert ".\n\n")
(insert (get-authors)) (insert (get-authors))
(insert "\nFor licensing information see ")) (insert "\n\nFor licensing information see "))
(insert/clickback "our software license" (insert/clickback "our software license"
(λ () (help-desk:goto-plt-license))) (λ () (help-desk:goto-plt-license)))

16
collects/drscheme/private/help-desk.ss
View File

@ -1,15 +1,13 @@
#lang scheme/unit #lang scheme/unit
(require string-constants (require scheme/gui/base
mred browser/external
(lib "external.ss" "browser")
(lib "bug-report.ss" "help")
(lib "buginfo.ss" "help" "private")
framework framework
mzlib/class scheme/class
mzlib/list
net/url net/url
(lib "search.ss" "help") setup/dirs
help/search
help/private/buginfo
"drsig.ss") "drsig.ss")
(import [prefix drscheme:frame: drscheme:frame^] (import [prefix drscheme:frame: drscheme:frame^]
@ -66,7 +64,7 @@
(super-new))) (super-new)))
(define (goto-plt-license) (define (goto-plt-license)
'(send-url (send-url
(url->string (url->string
(path->url (build-path (find-doc-dir) "license" "index.html"))))) (path->url (build-path (find-doc-dir) "license" "index.html")))))

29
collects/lang/htdp-langs.ss
View File

@ -6,13 +6,13 @@
|# |#
(module htdp-langs mzscheme #lang scheme
(require string-constants (require string-constants
framework framework
(prefix et: (lib "stacktrace.ss" "errortrace")) (prefix-in et: (lib "stacktrace.ss" "errortrace"))
(prefix tr: (lib "stacktrace.ss" "trace")) (prefix-in tr: (lib "stacktrace.ss" "trace"))
mzlib/pretty mzlib/pretty
(prefix pc: mzlib/pconvert) (prefix-in pc: mzlib/pconvert)
mzlib/file mzlib/file
mzlib/unit mzlib/unit
mzlib/class mzlib/class
@ -38,8 +38,8 @@
"run-teaching-program.ss" "run-teaching-program.ss"
stepper/private/shared stepper/private/shared
(only test-engine/scheme-gui make-formatter) (only-in test-engine/scheme-gui make-formatter)
(only test-engine/scheme-tests scheme-test-data test-format test-execute) (only-in test-engine/scheme-tests scheme-test-data test-format test-execute)
(lib "test-display.scm" "test-engine") (lib "test-display.scm" "test-engine")
) )
@ -439,8 +439,10 @@
(create-embedding-executable (create-embedding-executable
exe-name exe-name
#:modules `((#f ,program-filename)) #:modules `((#f ,program-filename))
#:literal-expression `(require ,(filename->require-symbol program-filename)) #:cmdline `("-l"
#:cmdline '("-Zmvq") "scheme/base"
"-e"
,(format "~s" `(#%require ',(filename->require-symbol program-filename))))
#:src-filter #:src-filter
(λ (path) (cannot-compile? path)) (λ (path) (cannot-compile? path))
#:get-extra-imports #:get-extra-imports
@ -1025,7 +1027,7 @@
(define (initialize-test-coverage-point key expr) (define (initialize-test-coverage-point key expr)
(unless (thread-cell-ref current-test-coverage-info) (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) (thread-cell-set! current-test-coverage-info ht)
(let ([rep (drscheme:rep:current-rep)]) (let ([rep (drscheme:rep:current-rep)])
(when rep (when rep
@ -1040,12 +1042,12 @@
#f))))) #f)))))
(let ([ht (thread-cell-ref current-test-coverage-info)]) (let ([ht (thread-cell-ref current-test-coverage-info)])
(when ht (when ht
(hash-table-put! ht key (mcons #f expr))))) (hash-set! ht key (mcons #f expr)))))
(define (test-covered key) (define (test-covered key)
(let ([ht (thread-cell-ref current-test-coverage-info)]) (let ([ht (thread-cell-ref current-test-coverage-info)])
(when ht (when ht
(let ([v (hash-table-get ht key)]) (let ([v (hash-ref ht key)])
(set-mcar! v #t))))) (set-mcar! v #t)))))
(define-values/invoke-unit et:stacktrace@ (define-values/invoke-unit et:stacktrace@
@ -1403,4 +1405,5 @@
(stepper:show-lambdas-as-lambdas #f))) (stepper:show-lambdas-as-lambdas #f)))
(drscheme:get/extend:extend-unit-frame frame-tracing-mixin) (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))))