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/")
(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)))

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

@ -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")))))

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

@ -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))))