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

modernize a few contracts in drracket

Browse Source
This commit is contained in:
Robby Findler 2013-04-23 15:46:15 -05:00
parent e689e8bd13
commit 880b841073
2 changed files with 16 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/drracket/private/main.rkt
View File

@ -1,12 +1,12 @@
#lang racket/unit #lang racket/unit
(require string-constants (require string-constants
mzlib/contract racket/contract
racket/class
"drsig.rkt" "drsig.rkt"
"frame-icon.rkt" "frame-icon.rkt"
mred mred
framework framework
mzlib/class
racket/list racket/list
racket/path racket/path
racket/file racket/file

28
collects/drracket/tool-lib.rkt
View File

@ -1530,7 +1530,7 @@ all of the names in the tools library, for use defining keybindings
drracket:language:put-executable drracket:language:put-executable
((is-a?/c top-level-window<%>) ((is-a?/c top-level-window<%>)
path? path?
(or/c boolean? (symbols 'launcher 'standalone 'distribution)) (or/c boolean? 'launcher 'standalone 'distribution)
boolean? boolean?
string? string?
. -> . (or/c false/c path?)) . -> . (or/c false/c path?))
@ -1557,12 +1557,12 @@ all of the names in the tools library, for use defining keybindings
drracket:language:create-executable-gui drracket:language:create-executable-gui
((or/c false/c (is-a?/c top-level-window<%>)) ((or/c false/c (is-a?/c top-level-window<%>))
(or/c false/c string?) (or/c false/c string?)
(or/c (λ (x) (eq? x #t)) (symbols 'launcher 'standalone 'distribution)) (or/c #t 'launcher 'standalone 'distribution)
(or/c (λ (x) (eq? x #t)) (symbols 'mzscheme 'mred)) (or/c #t 'mzscheme 'mred)
. -> . . -> .
(or/c false/c (or/c false/c
(list/c (symbols 'no-show 'launcher 'stand-alone 'distribution) (list/c (or/c 'no-show 'launcher 'stand-alone 'distribution)
(symbols 'no-show 'mred 'mzscheme) (or/c 'no-show 'mred 'mzscheme)
string?))) string?)))
(parent program-name show-type show-base) (parent program-name show-type show-base)
@{Opens a dialog to prompt the user about their choice of executable. @{Opens a dialog to prompt the user about their choice of executable.
@ -1778,7 +1778,7 @@ all of the names in the tools library, for use defining keybindings
drracket:language:simple-settings-printing-style drracket:language:simple-settings-printing-style
(drracket:language:simple-settings? (drracket:language:simple-settings?
. -> . . -> .
(symbols 'constructor 'quasiquote 'write 'trad-write 'print)) (or/c 'constructor 'quasiquote 'write 'trad-write 'print))
(simple-settings) (simple-settings)
@{Extracts the printing-style setting from a simple-settings.}) @{Extracts the printing-style setting from a simple-settings.})
@ -1787,7 +1787,7 @@ all of the names in the tools library, for use defining keybindings
drracket:language:simple-settings-fraction-style drracket:language:simple-settings-fraction-style
(drracket:language:simple-settings? (drracket:language:simple-settings?
. -> . . -> .
(symbols 'mixed-fraction (or/c 'mixed-fraction
'mixed-fraction-e 'mixed-fraction-e
'repeating-decimal 'repeating-decimal
'repeating-decimal-e)) 'repeating-decimal-e))
@ -1817,7 +1817,7 @@ all of the names in the tools library, for use defining keybindings
drracket:language:simple-settings-annotations drracket:language:simple-settings-annotations
(drracket:language:simple-settings? (drracket:language:simple-settings?
. -> . . -> .
(symbols 'none 'debug 'debug/profile 'test-coverage)) (or/c 'none 'debug 'debug/profile 'test-coverage))
(simple-settings) (simple-settings)
@{Extracts the debugging setting from a simple-settings.}) @{Extracts the debugging setting from a simple-settings.})
@ -1832,11 +1832,11 @@ all of the names in the tools library, for use defining keybindings
(proc-doc/names (proc-doc/names
drracket:language:simple-settings drracket:language:simple-settings
(-> boolean? (-> boolean?
(symbols 'constructor 'quasiquote 'write 'trad-write 'print) (or/c 'constructor 'quasiquote 'write 'trad-write 'print)
(symbols 'mixed-fraction 'mixed-fraction-e 'repeating-decimal 'repeating-decimal-e) (or/c 'mixed-fraction 'mixed-fraction-e 'repeating-decimal 'repeating-decimal-e)
boolean? boolean?
boolean? boolean?
(symbols 'none 'debug 'debug/profile 'test-coverage) (or/c 'none 'debug 'debug/profile 'test-coverage)
drracket:language:simple-settings?) drracket:language:simple-settings?)
(case-sensitive (case-sensitive
printing-style printing-style
@ -1850,11 +1850,11 @@ all of the names in the tools library, for use defining keybindings
(proc-doc/names (proc-doc/names
drracket:language:make-simple-settings drracket:language:make-simple-settings
(-> boolean? (-> boolean?
(symbols 'constructor 'quasiquote 'write 'trad-write 'print) (or/c 'constructor 'quasiquote 'write 'trad-write 'print)
(symbols 'mixed-fraction 'mixed-fraction-e 'repeating-decimal 'repeating-decimal-e) (or/c 'mixed-fraction 'mixed-fraction-e 'repeating-decimal 'repeating-decimal-e)
boolean? boolean?
boolean? boolean?
(symbols 'none 'debug 'debug/profile 'test-coverage) (or/c 'none 'debug 'debug/profile 'test-coverage)
drracket:language:simple-settings?) drracket:language:simple-settings?)
(case-sensitive (case-sensitive
printing-style printing-style