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

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

@ -1213,7 +1213,8 @@ typewriter font with two leading @litchar{+}s).}
See also @secref["base-links"]. See also @secref["base-links"].
@defform[(racketlink id pre-content ...) @defform*[[(racketlink id #:style style-expr pre-content ...)
(racketlink id pre-content ...)]
#:contracts ([id identifier?] #:contracts ([id identifier?]
[pre-content pre-content?])]{ [pre-content pre-content?])]{