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

fix a docs bug

Browse Source 
(and change a case-lambda to a regular lambda)
This commit is contained in:
Robby Findler 2013-04-01 22:38:08 -05:00
parent 5a85af78ac
commit 5669c372b2
2 changed files with 44 additions and 51 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
collects/drracket/private/get-extend.rkt
View File

@ -29,16 +29,14 @@
new%)))))]) new%)))))])
(values (values
(letrec ([add-extender (letrec ([add-extender
(case-lambda (λ (extension [before? #t])
[(extension) (add-extender extension #t)] (when built-yet?
[(extension before?) (error 'extender "cannot build a new extension of ~a after initialization"
(when built-yet? name))
(error 'extender "cannot build a new extension of ~a after initialization" (set! extensions
name)) (if before?
(set! extensions (compose (verify extension) extensions)
(if before? (compose extensions (verify extension)))))])
(compose (verify extension) extensions)
(compose extensions (verify extension))))])])
add-extender) add-extender)
(λ () (λ ()
(unless built-yet? (unless built-yet?

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

@ -971,30 +971,29 @@ all of the names in the tools library, for use defining keybindings
(proc-doc/names (proc-doc/names
drracket:get/extend:extend-tab drracket:get/extend:extend-tab
(case-> (->* ((make-mixin-contract drracket:unit:tab<%>))
((make-mixin-contract drracket:unit:tab<%>) . -> . void?) (boolean?)
((make-mixin-contract drracket:unit:tab<%>) boolean? . -> . void?)) void?)
((mixin) (mixin before?)) ((mixin) ((before? #t)))
@{This class implements the tabs in DrRacket. One is created for each tab @{This class implements the tabs in DrRacket. One is created for each tab
in a frame (each frame always has at least one tab, even if the tab bar is not shown) in a frame (each frame always has at least one tab, even if the tab bar is not shown)
The argument, @racket[before], controls if the mixin is applied before or The @racket[before] argument controls if the mixin is applied before or
after already installed mixins. after already installed mixins.})
If unsupplied, this is the same as supplying @racket[#t].})
(proc-doc/names (proc-doc/names
drracket:get/extend:extend-interactions-text drracket:get/extend:extend-interactions-text
(case-> (->* ((make-mixin-contract drracket:rep:text<%>))
((make-mixin-contract drracket:rep:text<%>) . -> . void?) (boolean?)
((make-mixin-contract drracket:rep:text<%>) boolean? . -> . void?)) void?)
((mixin) (mixin before?)) ((mixin) ((before? #t)))
@{This text is used in the bottom window of DrRacket frames. @{This text is used in the bottom window of DrRacket frames.
The argument, @racket[before], controls if the mixin is applied before or The @racket[before] argument controls if the mixin is applied before or
after already installed mixins. after already installed mixins.})
If unsupplied, this is the same as supplying @racket[#t].})
(proc-doc/names (proc-doc/names
drracket:get/extend:get-interactions-text drracket:get/extend:get-interactions-text
@ -1007,16 +1006,15 @@ all of the names in the tools library, for use defining keybindings
(proc-doc/names (proc-doc/names
drracket:get/extend:extend-definitions-text drracket:get/extend:extend-definitions-text
(case-> (->* ((make-mixin-contract drracket:unit:definitions-text<%>))
((make-mixin-contract drracket:unit:definitions-text<%>) . -> . void?) (boolean?)
((make-mixin-contract drracket:unit:definitions-text<%>) boolean? . -> . void?)) void?)
((mixin) (mixin before?)) ((mixin) ((before? #t)))
@{This text is used in the top window of DrRacket frames. @{This text is used in the top window of DrRacket frames.
The argument, @racket[before], controls if the mixin is applied before or The @racket[before] argument controls if the mixin is applied before or
after already installed mixins. after already installed mixins.})
If unsupplied, this is the same as supplying @racket[#f].})
(proc-doc/names (proc-doc/names
drracket:get/extend:get-definitions-text drracket:get/extend:get-definitions-text
@ -1029,16 +1027,15 @@ all of the names in the tools library, for use defining keybindings
(proc-doc/names (proc-doc/names
drracket:get/extend:extend-interactions-canvas drracket:get/extend:extend-interactions-canvas
(case-> (->* ((make-mixin-contract drracket:unit:interactions-canvas%))
((make-mixin-contract drracket:unit:interactions-canvas%) . -> . void?) (boolean?)
((make-mixin-contract drracket:unit:interactions-canvas%) boolean? . -> . void?)) void?)
((mixin) (mixin before?)) ((mixin) ((before? #t)))
@{This canvas is used in the bottom window of DrRacket frames. @{This canvas is used in the bottom window of DrRacket frames.
The argument, @racket[before], controls if the mixin is applied before or The @racket[before] argument, controls if the mixin is applied before or
after already installed mixins. after already installed mixins.})
If unsupplied, this is the same as supplying @racket[#f].})
(proc-doc/names (proc-doc/names
drracket:get/extend:get-interactions-canvas drracket:get/extend:get-interactions-canvas
@ -1051,16 +1048,15 @@ all of the names in the tools library, for use defining keybindings
(proc-doc/names (proc-doc/names
drracket:get/extend:extend-definitions-canvas drracket:get/extend:extend-definitions-canvas
(case-> (->* ((make-mixin-contract drracket:unit:definitions-canvas%))
((make-mixin-contract drracket:unit:definitions-canvas%) . -> . void?) (boolean?)
((make-mixin-contract drracket:unit:definitions-canvas%) boolean? . -> . void?)) void?)
((mixin) (mixin before?)) ((mixin) ((before? #t)))
@{This canvas is used in the top window of DrRacket frames. @{This canvas is used in the top window of DrRacket frames.
The argument, @racket[before], controls if the mixin is applied before or The @racket[before] argument controls if the mixin is applied before or
after already installed mixins. after already installed mixins.})
If unsupplied, this is the same as supplying @racket[#f].})
(proc-doc/names (proc-doc/names
drracket:get/extend:get-definitions-canvas drracket:get/extend:get-definitions-canvas
@ -1073,16 +1069,15 @@ all of the names in the tools library, for use defining keybindings
(proc-doc/names (proc-doc/names
drracket:get/extend:extend-unit-frame drracket:get/extend:extend-unit-frame
(case-> (->* ((make-mixin-contract drracket:unit:frame%))
((make-mixin-contract drracket:unit:frame%) . -> . void?) (boolean?)
((make-mixin-contract drracket:unit:frame%) boolean? . -> . void?)) void?)
((mixin) (mixin before?)) ((mixin) ((before? #t)))
@{This is the frame that implements the main DrRacket window. @{This is the frame that implements the main DrRacket window.
The argument, @racket[before], controls if the mixin is applied before or The argument, @racket[before], controls if the mixin is applied before or
after already installed mixins. after already installed mixins.})
If unsupplied, this is the same as supplying @racket[#f].})
(proc-doc/names (proc-doc/names
drracket:get/extend:get-unit-frame drracket:get/extend:get-unit-frame