hyperlink #<void> and #<undefined> in docs
original commit: 0101d12d49ce61bc3877ad4db4f0fb2f3f835bfb
This commit is contained in:
parent
f258bf0dff
commit
b1748ad2c3
|
@ -171,10 +171,18 @@
|
||||||
(list (racketmodfont "#lang"))
|
(list (racketmodfont "#lang"))
|
||||||
`(part ,(doc-prefix '(lib "scribblings/guide/guide.scrbl") "hash-lang"))))
|
`(part ,(doc-prefix '(lib "scribblings/guide/guide.scrbl") "hash-lang"))))
|
||||||
|
|
||||||
|
(define (make-v+u-link p)
|
||||||
|
(make-link-element
|
||||||
|
module-link-color
|
||||||
|
p
|
||||||
|
`(part ,(doc-prefix '(lib "scribblings/guide/guide.scrbl") "void+undefined"))))
|
||||||
|
|
||||||
(define-on-demand void-const
|
(define-on-demand void-const
|
||||||
(racketresultfont "#<void>"))
|
(make-v+u-link
|
||||||
|
(racketresultfont "#<void>")))
|
||||||
(define-on-demand undefined-const
|
(define-on-demand undefined-const
|
||||||
(racketresultfont "#<undefined>"))
|
(make-v+u-link
|
||||||
|
(racketresultfont "#<undefined>")))
|
||||||
|
|
||||||
(define (link url
|
(define (link url
|
||||||
#:underline? [underline? #t]
|
#:underline? [underline? #t]
|
||||||
|
|
Loading…
Reference in New Issue
Block a user