suzanne.soy/hyper-literate
1
0
Fork 0
Code Issues 4 Pull Requests 1 Actions Packages Projects Releases Wiki Activity

add ffi/com', ffi/unsafe/com'

Browse Source 
original commit: ff41a896bc03ccba95da0ba0a8e4b38c70bab278
This commit is contained in:
Matthew Flatt 2011-12-31 10:08:30 -07:00
parent 3f4465aada
commit bf6b952964
2 changed files with 12 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
collects/scribble/private/manual-scheme.rkt
View File

@ -230,18 +230,21 @@
(define-/form racketblock/form racketblock)
(define-/form racket/form racket)
(define (*racketlink stx-id id . s)
(define (*racketlink stx-id id style . s)
(let ([content (decode-content s)])
(make-delayed-element
(lambda (r p ri)
(make-link-element
#f
style
content
(or (find-racket-tag p ri stx-id #f)
`(undef ,(format "--UNDEFINED:~a--" (syntax-e stx-id))))))
(lambda () content)
(lambda () content))))
(define-syntax-rule (racketlink id . content)
(*racketlink (quote-syntax id) 'id . content))
(define-syntax racketlink
(syntax-rules ()
[(_ id #:style style . content)
(*racketlink (quote-syntax id) 'id style . content)]
[(_ id . content)
(*racketlink (quote-syntax id) 'id #f . content)]))

7
collects/scribblings/scribble/manual.scrbl
View File

@ -1213,9 +1213,10 @@ typewriter font with two leading @litchar{+}s).}
See also @secref["base-links"].
@defform[(racketlink id pre-content ...)
#:contracts ([id identifier?]
[pre-content pre-content?])]{
@defform*[[(racketlink id #:style style-expr pre-content ...)
(racketlink id pre-content ...)]
#:contracts ([id identifier?]
[pre-content pre-content?])]{
An element where the @tech{decode}d @racket[pre-content] is hyperlinked to the definition
of @racket[id].}